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Vorwort/Impressum 


Liebe SCHNEIDER-aktiv Fans, 


jetzt liegt Euch bereits die 7.Ausgabe von SCHNEIDER-aktiv vor. Wir 
hoffen, daß Euch diese wieder viel Freude bereitet. Die Nachfrage nach der 
SCHNEIDER-aktiv SOFT-BOX steigt ständig, sodaß es auch diesmal wie- 
der zu Lieferverzögerungen kam. Wir danken für Euer Verständnis. 


Unerwartet hoch war die Nachfrage nach der neuen SOFT-BOX 3" Disket- 
tenversion. 


Neu ist auch unser LESER-TELEFON-SERVICE Tel. 09122/2882: Zum 
billigen Telefontarif ist unser Apparat für Euch von jeden MONTAG von 
18.00 - 19.00 Uhr besetzt. Ihr könnt aber auch schon zuvor Euere Wünsche, 
Anregungen und Tips jederzeit auf Band sprechen, damit wir dann bereits 
um 18.00 Uhr präzise antworten können. 


Dem Wunsch auch über das Umfeld von CPC-Computern zu berichten kom- 
men wir gerne nach und haben bereits in dieser Ausgabe Interessantes zum 
ATARI und zu den IBM-Kompatiblen zu berichten. Wir werden uns aber im 
Rahmen der Berichterstattung an den Preisen orientieren, d.h. wir werden nur 
über echte Konkurrenten berichten, die etwa in der Preislage der CPC 
liegen. 


Schließlich möchten wir Euch bitten, an unserer unabhängigen Leser- 
Zeitschrift weiterhin aktiv mitzuarbeiten und uns auch weiterhin TIPS & 
TRICKS, Anregungen, Listings etc. zu-senden. 


Und nun viel Freude an der neuen SCHNEIDER-aktiv 


Euer SCHNEIDER-aktiv Team 
Postfach 1201 
8540 Schwabach 
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N CPC.464,664,6128__ 
3 DATEIUMSETZUNG 


Das Programm überführt Dateien im Intell-Hex-Format In Binärdatelen. Das Problem Programm aktiv. Nachdem es gestartet Ist, fragt es nach dem Namen der Intell-Hex- 
OÖ entsteht, wenn man für ein Basic-Programm eine Maschinenroutine benötigt und zum Datei. Nach der Eingabe läuft der Rest automatisch. Nach dem das Programm beendet 
Erstellen den Assembler von CP/M verwenden möchte. Er assembliert zwar nur 8080 ist, steht der Maschinencode binär Im Speicher und kann als Binärfile abgespeichert 
Befehle, aber das ist Immer noch besser als POKEN und genügt für kleinere Sachen. werden. Die Start- und Endadresse, sowie die Länge gibt das Programm In Dezimal- 
Wenn man nun mit dem Editor den Assemblertext geschrieben hat und ihn dann und HEX-Zahlen aus. Bei der Erstellung der Maschincnroutine Ist darauf zu achten, 
assemblieren läßt, erstellt einem der Assembler zwei neue Dateien. Eine Ist vom Typ daß die Startadresse nicht unter 10 000 liegt, da hier der Basic-Speicherbereich liegt 
PRN und dient zur Überprüfung (kann mit TYPE gelesen werden). Die andere Datei und das Programm abbricht. (Max Hüttmeler) 
ist vom Typ HEX und enthält den Maschinencode im Intell-Hex-Format. In dieser 


Form kann sie von Basic als binäre Datei nicht geladen werden.llier wird das rm IEIEEIEEEREEEEEETEEREENEEEEEEEEEEENEEEENEEEEENUN 
' Z5BHEEE 


| 10 REM %%% DATEIUMSETZUNG *X%%* 
I 20 REM by Huettmeier Max 
50 REM UMWANDLUNG VON DATEIEN IM INTELLFORMAT | 
| 40 REM IN BINAERDATEIEN | 
N 50 MEMORY 9999 j 
N 60 DIM A$(100) 
ı 70 MODE i 
| 80 PRINT 

| 90 PRINT "DATEITRANSFER INTELL-HEX "5CHR$S(243);5" BINAER" 
j 100 PRINT: PRINT 
I 110 PRINT"Geben Sie nun den Namen" 
120 PRINT"der Intell-Hex-Datei ein und legen" N 
| 130 PRINT"Sie die Disc mit der Datei ein" I 
ı 140 PRINT:INPUT "NAMEN : ",NAM$ I 
ı 150 PRINT:PRINT" Die Datei wird nun eingelesen " 
| 160 OPENIN NAM$ 
I 170 INPUT #9,A$(1I) | 
I 180 IF i)=99 THEN PRINT "Datei zu umfangreich":CLOSEIN: STOP N 
190 IF EOF=-1 THEN GOTO 220 I 
N 200 i=i+il | 
ı 210 G0TO 170 
ı 220 CLOSEIN 
I 250 MODE 2:PRINT:PRINT" Einlesen wurde richtig beendet" 
I 240 PRINT:PRINT 
| 
| 
| | 
I 
| | 
I | 
| | 
| | 
I | 
| | 
| 
| 
I | 
I | 
| 
| 
| 
| | 
I | 
| | 
| | 
| ) 
| | 
| 
| 
| I 
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250 MAXimal=i 

260 PRINT"Die Datei besteht aus ";5MAXimal;" Saetzen" 
270 PRINT:PRINT" Die Datei wird nun satzweise uebersetzt"” 
3500 PRINT:PRINT:PRINT"Satznr.","Adresse", , "Bytes" 
310 PRINT:PRINT 

s20 FOR satz=0O TO maximal-i 

330 bytes=VAL("&"+MID$(a$(satz),2,2)) 

340 adresse=VAL("&"+MID$(a$(satz),4,4)) 

s50 IF adresse<10000 THEN GOTO 510 

560 PRINT satz+t1,adresse,HEX$(adresse) +"H",bytes 

570 REM binaer 

380 FOR p=10 TO 10+ttbytes-1)%2) STEP 2 

Ss90 bina=VAL("&"+MID$(a$(satz),p,2)) 

400 POKE adresse,bina 

410 adresse=adresseti 

420 NEXT:NEXT 

430 PRINT:PRINT 

440 PRINT " Die binaere Datei ist nun im Speicher vorhanden " 
450 PRINT 

460 Anfang=VAL("&"+MID$(a$(0),4,4)) 

470 PRINT"Anfang = "anfang,HEX$ (anfang) +"H" 


480 PRINT"Ende = "adresse, HEX$ (adresse) +"H" 
4790 PRINT"Bytes = "adresse-anfang,HEX$(adresse-anfang) +"H" 
500 END 


510 PRINT:PRINT" Die Adresse des Satzes liegt unter 10000" 
520 PRINT" Er kann nicht umgewandelt werden,da er im" 
530 PRINT" Basic-Speicherbereich liegt." 
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PRESSEINFORMATION 


Mit dem JOYCE brachte SCHNEIDER vor gut 
einem halben Jahr ein Textsystem auf den 
Markt. Mit dem neuen Preis von 1799.- DM, 
beugt sich Schneider dem Preisdruck der 
Konkurrenz. Die Qual der Wahl zwischen 
mehreren hundert Textverarbeitungpro- 
grammen bleibt dem JOYCE-Benutzer erspart. 
Locoscript gehört zum Standardlieferumfang. 
Auf einen einfachen Nenner gebracht, er- 
leichtert JOYCE das Schreiben und Archi- 
vieren von Texten. Mit den vielfältigen Mö- 
glichkeiten des Textprogramms Locoscript 
werden die Texte gestalten und auf dem 
Matrixdrucker (!) in Korrespondenzqualität 
ausgegeben. JOYCE läuft unter CP/M Plus, 
als Programmiersprachen werden BASIC und 
Dr. LOGO mitgeliefert. 


Urn 
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Computer, Monitor, Drucker 
und Software komplett schon 
ab DM 1.799, 


Büro-JOYCE 


' das komplette Schreibsystem 


Anmerkung der Redaktion: Wir bitten unsere 
Leser, die sich gerade zu Weihnachten den 
JOYCE gekauft haben von entrüsteten Leser- 
briefen an uns über die Preissenkung abzuse- 
hen. Richten Sie Ihre Schreiben direkt an die 
Fa. Schneider. Bedenken Sie aber, daß ein 
Preisverfall auf dem Computermarkt infolge 
des technischen Fortschritts und des Kon- 
kurrenzdrucks auch in Zukunft nicht aus- 
bleiben wird. - 
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Am Ball bleiben .. . 
... mit einem 


EEITEVABO 


O Es ist mühselig, der neuesten SCHNEIDER-aktiv am Kiosk nachzulaufen 
O Es ist ärgerlich, wenn SCHNEIDER-aktiv schon vergriffen ist. 


O Da gibt es nur eines: SCHNEIDER-aktiv sofort abonnieren. 


12 Ausgaben für nur 48,- DM frei Haus 


ABO-BEDINGUNGEN: Ihr bestellt 12 Ausgaben von SCHNEIDER-aktiv. Die Kosten für Vertrieb, 
Zustellung und die Mehrwertsteuer sind im Preis von 48,- DM enthalten. Wenn Ihr das Abonnement nicht spätestens 
4 Wochen vor Ablauf schriftlich kündigt, verlängert es sich automatisch um 12 Ausgaben. Dieser Preis gilt nur für das 
Bundesgebiet und für West-Berlin. Der Abonnementpreis für das europäische Ausland beträgt 90,- DM. 


IHR KÖNNT WIDERRUFEN: Euere Abo-Bestellung könnt Ihr innerhalb von 8 Tagen schriftlich widerrufen. 


ABO-BESTELLUNG GANZ EINFACH: Schickt uns einen Scheck über den ABO-Betrag. 
Vergeßt nicht Euere vollständige Anschrift anzugeben. Auf den Scheck schreibt Ihr einfach: 


"SCHNEIDER-aktiv Abo ab nächster Ausgabe” 
und schickt den Scheck an: 
Verlag COMPUTER-aktiv 


Postfach 1201 
8540 Schwabach 
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MECKERECKE: DISKETTEN 


Es gibt seit Anfang des Jahres in unserer Ge- 
gend keine 3-Zoll-Disketten zu kaufen, auch 
in Frankfurt habe ich vor 3 Wochen keine be- 
kommen. Laut Händleraussage kann die Firma 
Schneider nicht liefern. Ich finde so etwas 
skandalös; wer sich in dieser Zeit einen neuen 
6128 gekauft hat, kann ja ohne Disketten das 
Gerät praktisch gar nicht nützen! (Karl-Heinz 
Köhler) 

EEETTETBETLETETTERTETEETETTERTERTTETETTERTEIN ARTEN TE 


CPC 464/664/6128 


LESERFRAGEN 
HARDCOPY-FUNKTIONEN 


Da man immer nur Hardcopy-Routinen, von 
Basic aufgerufen, in Hexcode dokumentiert, 
aus Schneider-Zeitschriften entnehmen kann, 
möchte ich wissen, wie man auf den Bild- 
schirmbereich im ROM zugreift und die ein- 
zelnen Bildpunkte auf den Drucker (in mei- 
nem Fall CPC 6128/RX 80) ausgeben kann. 
Wie kann man eine Hardcopy in einfacher 
oder mehrfacher Dichte erzeugen? (Bruno 
Römer) 

LEPTETETERTERETET ESTER ET ET ERE RETTET EEE HATTE 


Roboter steuern 
mit dem CPC 


Für die Leser, die ihre Platinen für die Robo- 
tersteuerung selbst herstellen wollen, dürfte 
das Fehlen des Platinenlayouts der Parallel- 
schnittstelle (in Heft 12/85) unangenehm auf- 
gefallen sein. Entsprechend der Schaltung auf 
Seite 7 wurde nun das Layout entworfen. 
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Sollte mit externer 5-Volt-Versorgung gear- 
beitet werden, dann muß die 5-Volt-Verbin- 
dung zum CPC im Interfacekabel unterbro- 
chen sein.(Martin Siebert) 
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HiSoft Pascal 


Sie wissen inzwischen, wie man in Pascal Wie- 
derholungen programmiert. Nur Entscheidun- 
gen fallen Ihnen noch etwas schwer. Gemeint 
sind natürlich Entscheidungen innerhalb eines 
Programms, auf Fachchinesisch Auswahlen 
genannt. Man unterscheidet ein-, zwei- und 
mehrseitige Auswahlen. 


Die einseitige Auswahl ist das altbekannte 
IF... THEN, das in Pascal so aussieht: 


IF bedingung THEN anweisung; 


Für die Bedingung gilt all das, was wir bei 
REPEAT...UNTIL schon gesagt haben. Und 
natürlich können Sie wieder mehrere An- 
weisungen mit BEGIN und END zusammen- 
fassen. 


Auf gut Deutsch heißt IF...THEN: Wenn dies 
oder jenes der Fall ist, dann tue das. Und 
wenn dies oder jenes nicht der Fall ist, dann 
tue nichts. Wenn aber auch dann etwas getan 
werden soll, kommt schon die zweiseitige 
Auswahl ins Spiel: 


IF bedingung THEN anweisung 
ELSE anweisung; 


Sprich: Wenn dies oder jenes der Fall ist, dann 
tue das, sonst tue etwas anderes. 


Beachten Sie, daß der Strichpunkt erst nach 
Beendigung des IF-Befehls steht, egal, ob 
dieser einen ELSE-Teil besitzt oder nicht. 
Doch ein Beispielprogramm sagt sicher mehr 
als theoretische Beschreibungen: 


PROGRAM teilbar; 


AR 
i : INTEGER; 
BEGIN 
FOR i := 1 TO 20 DO 
IF i MOD 4 = 
THEN 
WRITELN (i,' ist durch 4 teilbar.') 
ELSE 


WRITELN (Ci, "ist nicht durch 4 teilbar.') 
END. 


ei 


Hier sehen Sie auch, daß eine IF-THEN- 
ELSE-Folge als ein einziger Befehl verstanden 
wird. 


Ein Beispiel für die Verknüpfung von Beding- 
ungen und für die einseitige Auswahl gibt 
folgendes Programm: 


PROGRAM verkehrskontrolle; 
VAR 
alter : INTEGER; 


schein : CHAR; 
BEGIN 
WRITE ("Alter des Fahrers: '); 
READLN; READ (alter); 
WRITE ('Führerschein vorhanden? J/N: '); 
READLN; READ (schein); 
IF (alter<18) AND ((schein='N') OR (schein='!'n'!)) 
THEN 
BEGIN 
WRITELN C'Fahrer nicht zum Führen eines Kfz 
berechtigt.'); 
WRITELN ('Prüfen, ob Auto evtl. geklaut!') 


END; 
IF Calter>17) AND ((schein='N') OR (schein='n')) 
THEN 


BEGIN 

WRITELN ('Ahaaaaa, ein Schwarzfahrer!'); 

WRITELN ('Sicherheitshalber vorläufig 
festnehmen! ') 


END; 
IF (alter<18) AND ((schein='J') OR (schein='j')) 
THEN 
BEGIN 
WRITELN ('Das geht schlecht...'); 
WRITELN ('Verhaften wegen Irreführung der 
Behörden! ') 


END; 
IF calter>17) AND ((schein='J') OR (schein='j')) 
THEN 


WRITELN ('O.K., soll weiterfahren.') 
END. 
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Einführung in HiSoft PASCAL 


Nach dieser praktischen Lebenshilfe für Ver- 
kehrspolizisten dürften über die Verwendung 
des IF-Befehls keine Unklarheiten mehr be- 
stehen. 


Damit können wir uns unserem nächsten Pro- 
blem zuwenden: der mehrseitigen Auswahl. 
Vergleichbares in BASIC ist ON...GOTO bzw. 
ON...GOSUB. Aber Sie werden feststellen, daß 
Pascal auch hier strukturierter vorgeht und 
Ihnen so hilft, Spaghetti-Code zu vermeiden. 


Nehmen wir an, Sie haben folgendes Problem 
zu lösen: Es ist ein Programm für die vier 
Grundrechenarten zu erstellen. Der Benutzer 
gibt zunächst eine Zahl ein, dann das Rechen- 
zeichen und schließlich die zweite Zahl. Je 
nach Rechenzeichen soll das Ergebnis ermittelt 
werden. Dazu kommt, daß zusätzlich zu den 
"Computer-Symbolen" auch der Doppelpunkt 
für die Division und der Punkt für die Multi- 
plikation anerkannt werden sollen. 


Eine Horde IFs könnte das Problem sicher 
lösen. Aber besser ist es, Sie nehmen die 
kleine Mühe auf sich und lernen einen neuen 
Befehl. Er heißt CASE und hat etwa folgendes 
Format: 


CASE variable Of 


wert,wert,...,wert : anweisung; 


wert,wert,. anweisung 


U 


„wert : 


Gewitzte Programmierer setzen hinter das 
END; den Kommentar (OF CASE), um die 
Übersicht zu behalten. Statt einer Variablen 
kann natürlich auch ein arithmetischer oder 
sonstiger Ausdruck eingesetzt werden. Die 
einzelnen Wertelisten können auch aus nur 
einem Wert bestehen. Und was zu tun ist, 
wenn Sie mehr als nur eine Anweisung be- 
nötigen, wissen Sie ja inzwischen. 


Unser Problem ist also schon so gut 
wie gelöst: 
PROGRAM rechnen; 
VAR 
zahl1, zahl2, ergebnis : 
A . 


zeichen : CHAR; 
BEGIN 


REAL; 


ergebnis := 0; te falsches Zeichen eingegeben 
wir 

WRITE C'1. Zahl: '); 

READLN; READ (zahl); 

WRITE ('Operation: "); 

READLN; READ KEeIChend: 

WRITE c'2. Zah 

READLN; READ ins: 

= zeichen OF 


: ergebnis := zahl + zahl2; 
1. : ergebnis := zahli - zahl2; 
wi 0,0 2 ergebnis := zahli * zahl2; 
ıyı !z:! 2 ergebnis := zahli / zahl2 
END; [OF CASE\ WRITELN 
zahll, zeichen, zahl2, '=',ergebnis) 
END 


Wenn der tatsächliche Wert der Variablen 
nicht in einer der Listen der CASE-Anweis- 
ung enthalten ist, so passiert nichts: ergebnis 
behält in diesem Fall den Wert 0. Andere Pas- 
cal-Versionen erlauben z.B. CASE-Anweis- 
ungen mit einem ELSE-Teil, der alle Werte 
erfaßt, die nicht in den Listen auftauchen. Bei 
HiSoft-Pascal müssen Sie die Variable vorher 
überprüfen, wenn Sie nicht wollen, daß der 
CASE-Teil ohne Wirkung durchlaufen werden 
soll. Eine praktische Methode dafür bieten 
komplexere Datenstrukturen, die SETs oder 
Mengen, auf die wir im nächsten Teil ein- 
gehen werden. 


Das Ergebnis wird bei obigem Programm in 
der wissenschaftlichen Notation ausgegeben. 
Das E bedeutet "mal zehn hoch". Wenn Ihnen 
diese Schreibweise nicht gefällt, so können Sie 
die REAL-Zahlen formatiert ausgeben, wie 
Sie das in Teil 2 kennengelernt haben. 


Inzwischen haben Sie so viele Kenntnisse über 
Pascal erworben, daß Sie sich selbst eine Pro- 
grammieraufgabe stellen und diese lösen 
sollten. Beispielsweise: Eingabe verschiedener 
Zahlen (0O=Ende), die der Computer auto- 
matisch addiert und deren Summe als DM-Be- 
trag ausgegeben wird. Wenn diese Summe DM 
500.-- übersteigt, soll er 5% Rabatt abziehen. 
Zum Schluß muß noch die Mehrwertsteuer 
addiert werden. Verwenden Sie Konstanten 
für Rabatt und Mehrwertsteuer! Die Formel 
für die Addition eines Prozentanteils ist: 


wert := wert + (wert*prozentsatz)/100 


Für die Subtraktion beim Rabatt schreiben Sie 
statt + eben -. 


Hier folgt auch gleich ein Lösungsvorschlag, 
den Sie sich aber nicht ansehen sollten, bevor 
Sie das Problem nicht selbst gelöst haben. 


PROGRAM addition; 
S 


CONST 
rabatt = 5; 
mwst = 14; 
R 
einzelbetrag, summe : REAL; 
BEGIN 
summe := 0 
REPEAT 


WRITE ('Betrag: '); 
READLN; READ (einzelbetrag); 
Summe := summe + einzelbetrag 
UNTIL einzelbetrag = 0; 
IF summe > 500 
THEN 
summe = er - (summe*rabatt)/100; 
summe + (summe*mst)/100; 
„ARITELN. COEN&Betrag: DM ' ‚summe: 7: 2) 


Und bis zum nächsten Mal: fleißig weiterüben! 
(Ertl) 
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Fragebogenaktion 


Textprogtamme I 


Die SCHNEIDER-aktiv Fragebogenaktion 
wird von den Lesern mit großer Begeisterung 
aufgenommen. Schließlich interessiert es jeden 
Leser, ob ein Programm oder ein CPC-Zube- 
hörteil die Erwartungen des Käufers oder An- 
wenders erfüllt hat. 


Folgende Fragebogenaktionen haben wir unter 
unseren Lesern durchgeführt: 


SCHNEIDER-aktiv HEFT 1/86 Grafikpro- 
gramme I (Paint-Box, C.A.D., Mega Cad, 
Grafik-Master, Profi-Painter, Focus) 


SCHNEIDER-aktiv HEFT 1/86 Speicherer- 
weiterungen I (vortex und Data-Media) 


SCHNEIDER-aktiv HEFT 2/86 Dateipro- 
gramme I (Databank, Datei, Datenrem, dBase 
II, Multidata, Multidatei, Datamat, Datei Star, 
EMS, Deisys, Multidatei DM, RH Dat) 


SCHNEIDER-aktiv HEFT 2/86 Grafikpro- 
gramme II (Designer Star, Joydraw, Screen 
Designer, dk‘tronics Lightpen, Müllers 
Lightpen, Gredi, Mica, AMX Mouse, Lindy 
Lightpen). 


SCHNEIDER-aktiv HEFT 3/86 Disketten- 
laufwerke I (Schneider 3", Data-Media 5,25", 
vortex 3,5", vortex 5,25", Cumana 3", Cumana 
5,25") 


AUSWERUNGEN der Fragebögen: 


Folgende Fragebogenaktionen wurden 


ausgewertet: 


SCHNEIDER-aktiv HEFT 3/86 Speicherer- 
weiterungen I 


SCHNEIDER-aktiv HEFT 4/86 Dateipro- 
gramme 


Mit Erstaunen mußten wir feststellen, daß zu 
bestimmten Programmen viele aber zu man- 
chen Programmen nur sehr wenige manchmal 
sogar kein einziger Fragebogen eingesandt 
wurde. Auch zum Data-Media Diskettenlauf- 
werk kam bisher keine einziger Fragebogen 
zurück. Wir bitten daher unserer Leser, die 
ein derartiges Laufwerk besitzen uns das 
mitzuteilen, damit wir wissen ob diese Lauf- 
werke überhaupt mal verkauft wurde. Um 
auch weniger verkaufte Programme mit in die 
Auswertung mit einzubeziehen, müssen wir 
‘die Auswertung der Grafikprogramme noch- 
mals verschieben und unsere Leser bitten 


gerade zu weniger verkauften Programmen 
noch die Fragebögen einzusenden. Wer keinen 
Fragebogen hat kann diesen gegen Freium- 
schlag bei uns anforden. 


Vielleicht haben auch wir einen Fehler ge- 
macht, indem wir auch weniger verkaufte Ar- 
tikel mit einbezogen haben. Aber gerade die 
Wertung von weniger verkauften Artikeln in- 
teressiert unsere Leser. 


Monat für Monat werden wir neue Fragebö- 
gen drucken - und die Auswertungen jeweils 
ca. zwei Hefte später veröffentlichen. Wenn 
Ihr besonders gute oder auch schlechte Er- 
fahrungen mit der befragten Soft- oder Hard- 
ware gemacht habt, schildert uns die kurz. 


Durch diese auf dem Computermarkt bisher 
wohl einmalige Aktion kann ein Erfahrungs- 
vergleich von CPC Hard- und Software gezo- 
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FRAGEBOGENAKTION 6/86 CPC-TEXTPROGRAMME I 


Ich habe den unten angekreuzten Artikel nach folgenden 'Bewertungsstufen bewertet. Die vorgegebenen Wichtungsfaktoren habe 
ich - soweit diese nicht meinen Vorstellungen entsprechen - abgeändert. 


Note 1 = sehr gut, sehr zufriedenstellend, optimal 

Note 2 = gut, voll zufriedenstellend 

Note 3 = befriedigend, nicht enttäuscht, nicht weltbewegend, funktioniert 

Note 4 = ausreichend, man kann damit noch arbeiten, für mich ohne Zukunft 

Note 5 = mangelhaft, nicht ausbaufähig, unzuverlässig, gibt oder müßte Besseres geben 
Note 6 = ungenügend, ständig Reklamationen, nicht funktionsfähig, unbrauchbar 


Name: Vorname: Straße: PLZ/Ort: Tel.: 


Meine Bewertung betrifft das TEXT-PROGRAMM (nur ein Programm ankreuzen): 


O Tasword Version ... O Wordstar 

O Textomat O TexPack 

O andere: 

(bitte Namen und Hersteller einsetzen) 
W G 
Fragen Note Wichtungsfaktor Gesamtpunkte 
1 bis 6 vorgegebefer eigener " Note X Wichtungsfaktor 
2.=._—_— —oo0D- nee ee en 
1. Editieren/Korrigieren und sonstige Funktionen 20 
2. Bedienung 8 
3. Anleitung 4 
4. Geschwindigkeit 10 
[3 

5. Preis/Leistungsverhältnis 8 
6. Erfüllt die Erwartungen 6 
7. Erreichbarkeit des Herstellers bei Fragen 6 
8. Auskunft des Herstellers bei Schwierigkeiten 8 


SUMMEN: 


Kontrolle: Insgesamt_70 


Ich versichere, daß die obengenannten Angaben meinen persönlichen Erfahrungen entsprechen. 


Ort/Datum Unterschrift 


Textprogramme I 
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gen werden, der nicht auf den Erfahrungen 
bzw. Untersuchungen einer einzigen Person 
beruht, sondern auf den Erfahrungen der 
. Hard- und Softwareanwender basiert. Die 
Gefahr von normalen Testberichten, besonders 
bereitgestellter Anlagen, Beeinflussung von 
Testautoren, der Vorliebe von Autoren für 
bestimmte Software und Geräte, die mögliche 
Abhängigkeit von Zeitschriften durch Inse- 
ratsabschlüsse usw. dürfte hiermit ausge- 
schlossen sein. 


Praxisberichte von Anwendern 


Die SCHNEIDER-aktiv Auswertung der Fra- 
gebögen erhält damit den Charakter von 
Praxisberichten der Anwender. 


Tabellarische Auswertung 


Die tabellarischen Auswertungen der Frage- 
bogenaktionen geben keine Aussage über 
technische Besonderheiten und Details. Auch 
wird der Besitzer billiger und einfacher Hard- 
und Software normalerweise in die Leistungs- 


fähigkeit andere Erwartungen setzen als ein.. 


Anwender, der mehr Geld angelegt hat. 


Anwender berichten über ihre Erfahrungen 


Wie aus den Fragebögen zu ersehen ist, bitten 
wir die Anwender von Hard- und Software 


Noten zu erteilen. Die abgegebenen Noten‘ 


werden mit einem Wichtungsfaktor - W - 
multipliziert. Dadurch wird jeder einzelnen 
Frage ein Gewicht zugeordnet, da die Fragen 
nicht gleichwertig sein können. 


Ein Beispiel: Die Tauglichkeit bzw. die leichte 
Bedienbarkeit eines Programms ist für den 
Käufer das Wichtigste. Daher geht man hier 
u.U. von einem höheren Wichtungsfaktor aus, 
als z.B. bei der Frage nach der Kundenbera- 
tung durch den Hersteller bzw. Lieferanten 
insbesondere als eine Kundenberatung bei ei- 
nem einwandfrei funktionierenden Programm 
gar nicht erst in Anspruch genommen werden 
muß. Da es sein könnte, daß die Wichtungs- 
faktoren vom Anwender anders beurteilt 
werden, kann der Anwender eigene Wich- 
tungsfaktoren festlegen. Er muß jedoch darauf 
achten, daß die Summe seiner Wichtungs- 
faktoren wiederum den Betrag ergibt, der als 
Summe vorgegeben wurde, da sonst seine 


Bewertung nicht in die Fragebogenaktion 
einbezogen werden kann. Alle Leser, die 
eigene Wichtungsfaktoren festlegen, bitten wir 
im Fragebogen unseren Wichtungsfaktor zu 
streichen und durch ihren eigenen Wichtungs- 
faktor zu versehen und die Summe der 
Wichtungsfaktoren zu bilden und mit der 
vorgegebenen Summe auf Gleichheit zu kon- 
trollieren. Die Erhöhung eines Wichtungsfak- 
tors muß als zur entsprechenden Erniedrigung 
eines anderen Faktors führen. 


Die Auswertung wird mit der Grundbedin- 
gung verknüpft, daß mindestens 5 bewer- 
tungsfähige Fragebögen für die bewertete 
Hard- und Software zur Verfügung stehen. 


Wir stellen uns vor, daß nicht nur der CPC 
Anwender aus diesen Fragebogenaktionen 
Nutzen zieht, sondern auch die Hard- und 


-Softwarehersteller die Fragebogenauswertun- 


gen kritisch lesen. So wird sich eine positive 
Auswirkung einstellen, die letztlich wieder 
den CPC-Anwendern zugute kommt. 


Bei Fragebögen, bei denen die eine oder an- 
dere Note fehlt oder eine Null eingetragen ist, 
wird bei der Auswertung die Note 3 einge- 
setzt. Wir bitten jedoch unsere Leser möglichst 
allen Fragen eine Note zu vergeben, da dieses 
Verfahren im Einzelfall die Folge haben kann, 
daß Hard- und Software, die verhältnismäßig 
schlecht abgeschnitten hat, etwas aufgewertet 
und Hard- und Software, die überdurch- 
schnittlich gut abgeschnitten hat, geringfügig 
abgewertet wird. 

Wir werden die Ergebnisse der Fragebogen- 
aktionen in tabellarischer Form zum Abdruck 
bringen, und zwar in Form einer Tabelle der 
Gesamtbewertung über alle Einzelfragen. Pro- 
gramme, die mit weniger als 5 Fragebogen be- 
wertet werden, werden als nicht gewertet ge- 
kennzeichnet. 


Einsendeschluß 


Der Einsendeschluß für die Einbeziehung der 
Bewertungsbögen ist der in SCHNEIDER- 
aktıv angekündigte Erscheinungstermin der 
Nächstausgabe_ bezw. deren Redaktionsan- 
nahmeschluß. Dadurch ist gewährleistet, daß 
zwei Ausgaben nach jeder Fragebogenaktion 
die Gesamtwertung dem Leser zur Verfügung 
steht. Wir behalten uns vor zusätzlich zur 
Gesamtwertung über die Einzelnoten aus der 
Fragebogenaktion weitere Gruppenwertungen 
zu den einzelnen Fragen aufzuzeigen. 
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16 FRAGEBOGEN-AUSWERTUNG 


Der Fragebogen: 


Unser Fragebogen besteht aus einer Reihe von 
Fragen jeweils zugeschnitten auf die Artikel- 
gruppe. Der Einsender des Fragebogens hat 
für jede Frage eine Bewertung in Zahlen 
durchzuführen. Die Notenstufung von 1 bis 6 
entspricht der schulüblichen Skala. 


Die Bewertungsstufen 


Note 1 = sehr gut, sehr zufriedenstellend, 
optimal 

Note 2 = gut, voll zufriedenstellend 

Note 3 = befriedigend, nicht enttäuscht, nicht’ 
weltbewegend, funktioniert 

Note 4 = ausreichend, man kann damit noch 
arbeiten, für mich ohne Zukunft 

Note 5 = mangelhaft, nicht ausbaufähig, 
unzuverlässig, es gibt oder müßte 
besseres geben 

Note 6 = ungenügend, ständig Reklamationen, 
nicht funktionsfähig, unbrauchbar 


Jeder Fragebogen bezieht sich nur auf ein 
einziges Produkt. Sofern der Anwender meh- 
rere Produkte, die in der Fragebogenaktion 
angesprochen sind zur Verfügung hat, muß er 
mehrere Fragebögen, d.h. für jedes Programm 


SOFTWARE HARDWARE 


einen eigenen Fragebogen ausfüllen. Wir bit- 
ten den Anwender aus diesem Grunde ggf. 
sich den Fragebogen zu kopieren. 


In der Spalte W haben wir den Wichtungsfak- 
tor, der unserer Meinung entspricht, einge- 
tragen. 


In der Spalte G multiplizieren Sie bitte die 
von Ihnen erteilte Note mit dem Wichtungs- 
faktor_ W und tragen Sie in der Spalte G 
jeweils das Produkt ein. Nach Eintragung aller 
Produkte bilden Sie die Summe der Spalte G 
und tragen diese in die Spalte: "Summe" ein. 
Sofern Sie einen eigenen Wichtungsfaktor 
wählen, streichen Sie bitte unseren vorge- 
gebenen Wichtungsfaktor W und tragen rechts 
daneben Ihren Wichtungsfaktor ein. Beachten 
Sie jedoch, daß die Summe sämtlicher Wich- 
tungsfaktoren genau die Zahl ergibt, die in 
der Spalte "Kontrolle: Insgesamt" vorgegeben 
ist. Sobald Sie Ihren Fragebogen ausgefüllt 
haben, schicken Sie diesen unterschrieben an 
unserer Redaktion - aber bitte so rechtzeitig, 
damit er in die Fragebogenaktion einfließen 
kann. 


Unsere Anschrift: 


COMPUTER-aktiv Verlag 
Fragebogenaktion 
Postfach 1201 

8540 Schwabach 


Fragenbogenauswertung 


DATEIPROGRAMME: 


Die Auswertung aller bis zum Drucktermin eingesandten Fragebögen erbrachte folgende 
Leserbewertung für DATEIPROGRAMME: 


RH Dat (Integral) 

dBASE Il (Markt und Technik) 
Datei Star (Star Division) 
Datamat (Data Becker) 
Deisys (EDV Worms) 
Multidatei (Data Media) 


Note: 1,56 
Note: 1,57 
Note: 2,66 
Note: 2,81 
Note: 4,65 
Note: 5,51 


Für die anderen abgefragten Programme wurden keine Leserwertungen abgegeben. 


CPC 464/664/6128 


Der Seikosha GP-500CPC hat leider bei der 
Hardcopyausgabe eine Schwäche, er kann nur 
480 horizontale Grafikpunkte ansteuern. Die 
CPC's sind jedoch in der Lage, 640 Punkte in 
der Horizontalen und 400 Punkte in der Ver- 
tikalen darzustellen. Diese Diskrepanz führt 
dazu, daß man auf herkömmlichem Wege (zu- 
mindest in Mode 2) keine Hardcopy erstellen 
kann, die die Bildschirmauflösung auf den 
Drucker überträgt. 


DIE LÖSUNG 


Ein Drucker ist in der glücklichen Lage, in 
der Vertikalen unendlich viele Punkte darzu- 
stellen, wenn das Papier nur lang genug ist. 
Für unsere Zwecke reicht aber schon ein DIN 
"A4 Blatt aus. Die entscheidende Idee ist es, 


0 


die Hardcopy auf dem Papier einfach umzu- 
drehen. So braucht man, um die volle Bild- 
schirmauflösung auf den Drucker zu übertra- 
gen, nur noch 400 vertikale Druckpunkte. Die 
640 Punkte für die Horizontale gibt dann die 
Papierlänge schon her. 


Um nun in den Genuß dieser Hardcopy zu 
kommen, kann man entweder den BASIC- 
Loader starten und die Hardcopy dann mit 


CALL &A000 aufrufen oder aber das 
Assemblerlisting abtippen (bzw. mit dem 
DEVPACK Assembler laden) und assem- 
blieren. 


Das Assemblerlisting dokumentiert sich selbst, 
sodaß ich auf weitere Details des Programmes 
wohl nicht eingehen muß. (Henry Haack) 
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HARDCOPY für 


OÖ '! 19 ’HARDCOPY BASIC-LOADER 
I 25 ’FUER GP-SoacPl HARDOOPY MIT 4OaKS48 PUÜHKTEH N 
ı 30 CC) 1986 BY HENRY HAACK 1 
O ı 43 "FALKSTRASSE 123 ) 
ı 53 4169 DUISBURG 1 
ı 59 MEMORY RSFFF 
O ı 73 RESTÜRE 156:FÜR x=&Aa09 TO &A0E3 
, 29 REHD 38: PÜKE x, YALC"R" +36 zum=Eumt ALL" +5) 
38 HEKXT x 
6) I 155 MODE 2 
I y1o IF esse THEN PRINT"£*% DATA FEHLER #£&#" :EHD | 
I 128 PRINT" HARDCOPY OK. AUFRUF MIT CALL ABGB KH" NEN | 
6) ı 145 END a ) 
| 150 EATA CO,EA,EB, CD, ET,BB, 32, E68, Aa, 3E, 86, CO, SF, AR, SE, AR,C ‚DSF, As, 11,2, ae El. 
‚23.ED,55, 81, Ad, C0 | 
6) I 1856 LATA 75.99, 00,97,R6, GE, 06, 86,57, E0.58, 81, AM, E35, 05.105,00, FO,EB,C1,DL,21, E68, A 
I „BE,E1,37,268,01,A7 
| 175 CATA CE.19,13, 1ER, CB,19,: 73,C0,865F,A8, 73, C0,5F, H8,23,23,0D5, 11:29, 01,EE,37,E0O | 
ı »„SZEB,D1.23,02,123 N 
Ö | 138 CATA c3,13,E5 ae ‚54,02,37,ED,52,E1,38,: 3A, E06, 53:B1, A, 21.08 LE, AE,CC,EE,EO | 
| ‚38, FB,C D,2B, E01 | 
123 CATA 38, 80,0 D.6F, AB, 3E, 8A. CD. 6F. AB, 3E, 1E,CD,5F, As, 2E, 46. CO, 5F. Ag, BE, a3, cr 
OÖ '! As,3E, 18,CD,6F,Hd 
| zu65 GATA C9,E5,3E,42,CD, 1E,8B,E1.C5.E1, 38,80, 00. SF, Ro. 23E, OF, CD, EP, AR, SE, ACC, | 
I ,R8,03, 20,00, 05,065 j 
OÖ ı | 
j | 
j 
O | 1 ‚Hardcopy fuer Seikozah GP-SSACFC 
f 2 ;Durch Yertikalformat 40046540 Punkte ı 
O ı 3 5Geseitanet fuer Mode 9,1,2) 
ı 4 ;«C> 19596 by Henry Haack 
) r or3 #3840 ;koytine ab #A05 Lader ) 
OÖ ı 5 arafik: 2e9u #bbba ;‚Betriebssystenröoutinen | 
) 3 hinter: equ #bbe7 benennen ) 
6) ) 18 Punkt?: e9u #bbfo 
) il ausdru: eq9u #bd2b ) 
12 fertig: eu #bde 
Cr 13 taste: equ #bble 
| 14 call 3rafik ‚Grafik initialisieren I 
| 15 call hinterarund ;Hintersrundsfarbe 
O | 16 ld (farbedsa. ;merken 
t 17 ld 3,13 ;bruckerpuffer leeren 
Ci 18 call drucken | 
13 ld 3,18 sand linefeed ) 
20 call drucken | 
O | 21 ld de,d slinks 
De ld HlL,8 sund unten anfangen 
o | 23 1d Kanfanad),de ;Anfangspunkt merken 
) 24 loopl:. call escseqauenz ;bErucker auf Grafik 
25 call erde? ;ESC Taste Yedrusckt 7 
oO 25 loop2: 1d cc, ‚alte GrafikParameter 
ı 27 ld 5,7? ;loeschen und die 
oO! 23 ld de,Canfany) ;? Punkte einlesen | 
| 23 loop3: Fush hl ) 
38 Push de ) 
Oo. 31 Push be | 
32 call Punkt? ;Purnkt testen | 
| 33 PaP bc 
O ı 34 Pop de ' 
| 35 ld hl,fartbıe ‚Punkt 
Oı 365 cP  Xhl) ;<> Hintergrund? I 
37 Por hl ) 
38 sct wenn Ja dann Funkt | 
Oo! 39 ir nz,setzen ‚setzen | 
j 48 and 4a ‚sonst nicht 
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HARDCOPY für SEIKOSHA' 


searry in C rotieren 


setzen: 


; | 
ee 42 inc de sund den naecsten 6) 
43 dinz 190P3 ;Purkt einlesen 

44 rP € ;bit 8 ist immer leer I 
O | 45 ld 3c ;Bste an Drucker ı oO 
| 46 call drucken | 
oO! 47 ld ac ‚bas Sarze zwei mal Me) 
43 call drucken 
o | i' ;schon 9anz oben? | 
Ä ge 
I | 
Oı de, hl , © 
| 
OÖ I hl,de | 
| 1-1 ex de,hl | O 
37 Pc de 
®) so yr  C,neuespalte ‚Ja dann neue Spalte OÖ 
53 ir loop2 ;Nein dann naecste Zeile | 
6) GA neussp: inc’ de seine Spalte weiter 
&1 Push hl me 
ö Ä e2 ld hl,sda ;Hardeopy fertig? 
3 sch | 
| 54 sbc hl,de ' O 
| 85 FoP hl t 
O t 66 ir  c,Progende ‚Ja darın beenden ©) 
67 ld cCanfanyd,de ‚sonst Spalte merken 
O ı 65 ld Hl 
f 53 Jr loopi sund einlesen O 
| re dgrucke: call fertig? ‚Drucker noch in Aktion? | 
84 vl ir c,drucken ‚Ja dann warten BL! 
| fe call ausdruck ‚sonst drucken 
3 ret 
O 74 escse9: \d 3,13 ;Nasenrusck lauf O 
o N 79 call drucken | 
r6 ld 3,14 ‚Zei lenvorschub f 
eR call drucken O 
| r5 ld 3,27 ‚fuer reue Zeile 
O | [6 call drucken f @) 
213) ld 3,75 f 
| 51 call drucken 
O ) 22 ld 2,3 ;orycker auf 448 | O 
6) 83 call drucken ;Funkte Grafik ı o 
54 ld a,l6 | 
55 call drucken ;schalten 
35 ret ) 

O Sr ende?: Push Hl , O 
35 ld 3,65 ;Escare 
es 89 call taste ;aedrueckt? Be) 
36 For hl swerm nein 

6) 21 ret z ;darın weiter 
92 pcep hl ‚sonst Stack aendern ı O 
53 prosen: ld 3,13 | 
BR El call drucken Oo 
35 ld 3,15 ;brucker 
! 95 call drucken sauf Hormalschrift 
©) 37 ld 3,13 srozh einmal den ıO 
35 call drucken ;‚bruckerpuffer leeren 
O ı 93 > ret ;Zurueck zum Aufruf 6) 
199 farbe: defb A ‚Speicher laetze zum 
) "anfang: Fi Kia smerken von Daten N 
K®, I & I Ö 
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SCHNITTSTELLEN-BELEGUNG 


Im Handbuch des CPC 6128 sind Schnittstellen 


fehlerhaft dokumentiert. Pin 23 DRIVE I SELECT Pin 25 
Pin 25 N/C Pin 24 
Als einzig richtig dokumentierte Schnittstel- | Pin 27 INDEX Pin 23 


lenbelegung stellt sich die Druckerschnittstelle | Pin 29/31/33/35 . N/C Pin 22/21/20/19 
dar. Hier nun die Floppyschnittstelle und der 


Expansionsport: Alle weiteren Pin‘s entsprechen GND 
Anschluß _eines zweiten _Diskettenlaufwerkes | Pin 2 Pin 18 
an den CPC 6128 Pin 4 Pin 17 
---------- ---- USW----------------------- 
Belegung laut Handbuch Centr. Buchse 
Belegung des Erweiferungsanschlußes 
Pinli READY Pin 36 
Pin 3 SIDE I SELECT Pin 35 Bitte das Handbuch wie folgt korrigieren: 
Pin5 READ DATA Pin 34 obere Reihe der Abbildung,- beginnend bei Pin 
Pin 7 WRITE PROTECT Pin 33 1, durchnummerieren von | - 25 
Pin9 TRACK ZERO Pin 32 untere Reihe der Abbildung, beginnend bei 
Pin 11 WRITE GATE Pin 31 Pin 2, durchnummerieren von 26 - 50 
Pin 13 WRITE DATA Pin 30 


Pin 15 STEP Pin 29 Die neue Nummerierung entspricht der 
Pin 17_ DIRECTION SELECT Pin 28 Belegung der Centronicsbuchse. (Andreas 
Pin 19 MOTOR ON Pin 27 Guhr) 


Pin 21 N/C Pin 26 PEERTERTTERTTERTERTTERFTERTERRTERTTERTTERTETI ARTE 


| NEU » CPC ANWENDERSOFTWARE CPC * NEU 


3 © Wärme-64/CPC, Warmebedart DIN 4701. 
:: Erleben auch Sie auf Ihram CPC 464 die Geschwindigkeit eines schnal- 


mit K-Zahl-Berechnung DIN 4108. kompl. Ausdruck ab DM 69,- 
= © Rohrnetz-Berechnung, 2-Rohr. Zeta-Wen ab DM 99,- 
::ien FORTH-Compilers mit _Turtiegrafik, Editor, Assembler, Tracer unıl © Paketpreis Wärme + Rohrnetz DM 149— 
© Zins- ilien- - 
“schrieben und erzeugt kompakte Programme. Die Grafik Ist um Kreis- Zins: $ Immobilien: Feogzaftun.n Aus a er 
RR © Lohn- + EKST-Programm m. Ausdruck ab DM 39, 
#und Fällbefehle erweitert, das System setzt ebenfalls Windows ein. © Vereinsverwaltung - Faktura- Kassenbuch jeabDM 59,- 
5 Das Programm wird mit einem 180-seitigen deutschen Haadku © Multidatei ab DM 59,- ®@ CPC-BUG 
& golletert. ©@ Multitext ab DM 79,- Monitorprogramm DM 59,- 
En ; © Wordstar CPC/Joyce DM 199,- © CPC-TERM 
„Preis auf Cassstis . DM 148,- ] @ dBase CPC/ Joyce DM 199,- Terminalprogramm DM129 
auf Disk 3”, 525” om 178,-:: | © Multiplan CPC/Joyce DM 199,- _ "Y*=bei = 
‚Forth Library 99,- DM © Spiele ab DM 9,90. 4 Super-SpieleautT Dis: 
Ausführliches Prespekthlatt hai: Nibblex, Money Molch, Pongo u. Time nur DM 89,- 


FORTH-SYSTEME Angelika Flesch 
ch 1226, 7820 Titisee-Haustadt, @ 07651/1665 


®@ Disketten 3” 5 Stck. 67,— 10 Stck. 128,— 51/4" 10 Sıck. 34,90 

Alle Preise incl. MWST zzgl. NN + Porto, ab DM 150,— Porto u. Verp. frei 

WHS HINDERER - TECHNISCHE SOFTWARE 07127/5414 
7447 AICHTAL, HOHENZOLLERNSTR. 9 - bis 20 Uhr - 
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CPC 464/664/6128 


KREISBESCHLEUNIGUNG 


Einen Kreis auf dem CPC zu zeichnen, dauert 
in BASIC sehr lange. Es gibt zwar inzwischen 
schon etliche Befehlserweiterungen in Ma- 
schinensprache, die dieses Problem lösen, aber 
noch keine Lösung in BASIC. Bei dem beige- 
fügten Demo-Programm wird deutlich, daß 
mit einem Trick der Kreis um ein vielfaches 
schneller gezeichnet wird, aber nicht nur der 
Kreis, sondern auch noch andere Funktionen, 
bei denen mit SIN und COS gerechnet werden 
muß. Der eigentliche Trick ist, daß der CPC 
360*Sinus und 360*Cosinus ausrechnen muß. 
Dadurch wird natürlich die Ablaufge- 
schwindigkeit erheblich verlangsamt, be- 
sonders noch, wenn mehrere Kreise zu zeich- 
nen sind. In diesem Listing werden am An- 
fang des Programmes die Werte von Sinus |- 
360 und Cosinus 1-360 in Variablen abgelegt. 
Daraus folgern wir, daß der Rechner die Wer- 
te nur EINMAL ausrechnen muß und diese 
dann immer im Speicher zur Verfügung hat. 
Will man nun einen Kreis oder ähnliches 
zeichnen, so verwendet man, in unserem Fall 
die Variablen s(n)=SIN(n) und c(n)=COS(n), 
wie den normalen Sinus- und: Cosinusbefehl. 
Einen Zeitgewinn gibt es leider erst nach 
mehreren Kreisen. (Christian Eißner) 

11171771771171171771771777771337877371311377910,40Y637107 


100 ’@LLLLELLLLLLLLELLLLLLALLLALERERR 


110 ’@R@ written by eaR 
120 ’@@@ Christian Eissner @@@ 
140 ’ @@ELLLLLLLLLLLELLLLLELLLALELELREE 
150 

160 MODE 1 

170 CLEAR 


180 DIM c (360),5 (360) 

190 INK 0,0:BORDER O:PAPER O 

200 INK 1,26:INK 2,18: INK 3,6 

210 DEG 

220 PEN 3 

230 LOCATE 1,1:PRINT "SIN - COS WERTE BERECHNEN" 
240 ’--- an. -22 

250 ”’---BERECHNEN DER SIN-COS WERTE-- 

260 ? mul hm 

270 FOR z=1 TO 360 

280 c(z)=C0S(z) 

290 s(z)=SIN(z) 

300 NEXT Z 

310 PEN 3 

320 LOCATE 1,1:PRINT "KREIS MIT VARIABLEN ” 
330 ?--—----------- 

340 ’---PLOTEN DES KREISES MIT VAR.-- 

350 "man ------ 1 1 

360 FOR I=1 TO 360 

370 PLOT s(i)8290+320,c(i)2970+210,1 

380 NEXT i 

390 LOCATE 1,1:PRINT "KREIS MIT BERECHNUNGEN 
400 "min 1177 

410 ’--PLOTEN DES KREISES OHNE VAR.-- 

420 ’=----------- 7 

430 FOR I=1 TO 360 

440 PLOT SIN(i)%90+320,C0S(i)290+210,2 

450 NEXT i 

460 PEN 3 

470 LOCATE 1,1:PRINT "ENDE"3STRING$ (23,32); 
480 WHILE INKEY$="":WEND 


LESERTIP "u 
TIPS ZU BANKMA 
AUS SCHNEIDER-AKTIV 2/86 


Wir 6128er werden, was Programme anbe- 
langt, ja noch nicht sehr verwöhnt und müs- 
sen froh sein, wenn die abgedruckten Pro- 
gramme für den 464 auf unseren Rechnern 
laufen. Ich hoffe, daß bald noch mehr Pro- 
gramme speziell für den 6128 kommen. 


Ich habe zur Schneider-aktiv Dateiverwaltung 
eine Verbesserung gemacht, mit der ich mir 
erspare, BANKMAN immer extra zu laden. 
Ich gehe folgendermaßen vor: 


l. In Zeile 29 wird der Befehl "GOSUB 
447" gelöscht. Die BANKMAN-Ab- 
frage wird nun nicht mehr ange- 
sprungen. 

2. Das Dateiprogramm speichere ich nun 
unter dem Namen "DATEI.PRG" ab. 

3. "BANKMAN.BAS" und "BANKMAN. 
BIN" habe ich mit PIP von der 
CP/M-Diskette auf die Diskette 
übertragen, auf der "DATEI.PRG" 
vorliegt. 

4. Den Listschutz von "BANKMAN.BAS" 
habe ich aufgehoben (z.B. mit "UN- 
PROTECT" von M. Kortulla aus 
SCHNEIDER-aktiv 11/85) 

5. Bei "BANKMAN.BAS" in Zeile 190 den 
Befehl "END" durch "RUN DATEI. 
PRG" ersetzt und mit SAVE "DATEI" 
abgespeichert. s 


Das wars auch schon. Geladen wird jetzt mit 
RUN "DATEI". Es wird automatisch BANK - 
MAN und anschließend die Dateiverwaltung 
gestartet. (Karl-Heinz Köhler) 
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Abmahnung Abmahnung 


Abmahnung 


Unlauterer Wettbewerb? 


Da gibt es auf der einen Seite die Fa. Schnei- 
der, als Monopolist für Schneider-Computer, 
die in Zeitungswerbung und Rundfunkwer- 
bung für ihre Computer mit dem ausdrückli- 
chen Hinweis: "inclusive Mehrwertsteuer" 
wirbt. 


Dann ist da auf der anderen Seite der Händler 
der die Computer der Fa. Schneider, um wett- 
bewerbsfähig zu bleiben auch mit dem Zusatz 
"inclusive Mehrwertsteuer" anbieten muß. 


Dann gibt es noch die Gerichte, die entschie- 
den haben, daß eine Werbung mit dem Zusatz 
"inclusive Mehrwertsteuer" unlauterer Wett- 
bewerb ist. 


Und schließlich gibt es dann Vereine mit 
wohlklingendem Namen und behördlicher 
Sanktionierung, die Ihre Zeit damit verbringen 
Zeitschriften und Zeitungen zu durchblättern 
um aus Gerichtsurteilen Geld zu machen. 


So ein Verein sitzt in Berlin und hat nun 
einen Händler kostenpflichtig abgemahnt und 
aufgefordert folgende Verpflichtungserklä- 
rung abzugeben: 


"Die Fa. ..... gibt auf Grund des Abmahn- 
schreibens des WETTBEWERBSVEREINS 
vom 06.03.86 die folgende strafbewehrte 
Unterlassungserklärung ab: 


1.) Wir verpflichten uns, es zu unterlassen, im 
geschäftlichen Verkehr und zu Wettbewerbs- 
zwecken 


a) Preisangaben in Zeitungen und/oder Zeit- 
schriften mit dem Zusatzvermerk "incl. Mwst.” 
oder einer sinngleichen Aussage zu versehen.” 


b) fehlt 


"2.) Gleichzeitig verpflichten wir uns, dem 
Wettbewerbsverein ... für jeden Fall zukünf- 
tiger Zuwiderhandlung gegen a) eine Ver- 
tragsstrafe in Höhe von DM 3.000,00 (Drei- 
tausend) zu zahlen und einen Anteil der für 
diese Rechtsverfolgung bisher entstandenen 
Kosten in Form einer Kostenpauschale in Hö- 
he von DM 140,-- (122,80 zuzüglich MwSt.) 
zu erstatten und diesen Betrag bis zum 17. 
03.86 anzuweisen." 


Im Falle der Nichtunterwerfung wird eine so- 
fortige einstweilige Verfügung angedroht. 


Die Grundsätze der Satzung diese Vereins sind 
für gut befunden worden und abgezeichnet 
mit: 


DEUTSCHER INDUSTRIE- UND HAN- 
DELSTAG 


HAUPTGEMEINSCHAFT DES DEUTSCHEN 
EINZELHANDELS 


BUNDESVERBAND DER DEUTSCHEN 
INDUSTRIE 


BUNDESVERBAND DES DEUTSCHEN 
GROSS- UND AUSSENHANDELS 


ZENTRALVERBAND DES DEUTSCHEN 
HANDWERKS 


Es bleibt die Frage offen, warum es dieser 
Verein bisher nicht geschafft hat aus der 
Rundfunk- und Zeitschriftenwerbung der Fa. 
Schneider den Zusatz "inkl. MwSt" zu entfer- 
nen. 


Vielleicht liegt es auch daran, das der Verein 
seiner Abmahnung ein Gerichtsurteil vorlegt, 
daß von ganz anderen Voraussetzungen aus- 
geht. Würde Schneider nicht mit der MwSt 
werben, dann würde dies auch kein Händler 
tun. Im Übrigen warb der Händler auch nur 
bei Schneider Produkten mit der MwSt., da 
bei anderen Produkten keine Veranlassung be- 
stand. 


Interessieren würde uns noch die Zusammen- 
setzung der Kostenpauschale von 140,- DM, 
die angeblich nur die Hälfte der entstandenen 
Kosten deckt. So teuer ist doch SCHNEIDER- 
aktiv wirklich nicht und die auf rotem Papier 
hektografierten Kopien der Gerichtsurteile 
auch nicht. 


Wir bitten unsere Leser und auch Händler um 
Ihr Urteil zu diesem Vorgehen und die Fa. 
Schneider durch Einstellung der Werbung mit 
dem Zusatz: "incl. MwST." nicht weiter als 
Lockvogel für Abmahnvereine tätig zu wer- 
den. 


HUMOR 


SYeslalzile 
en’ 


MICRO ’86 


F. W. BERICHTET 


Frankfurter Computermesse 


MESSEINDRUCK MICRO 86 


völlig zerdrückt von F.W. 


Die Firma SCHNEIDER hatte schon lange 
keinen neuen Computer mehr vorgestellt und 
ich war deshalb schon sehr beunruhigt. Wie 
jeder User des Gerätes hatte ich schliesslich 
ein Abonement abgeschlossen, daß mir in 
jedem Vierteljahr ein neues Modell bescherte. 
Voller Sorgen um das wirtschaftliche Wohler- 
gehen der Company wollte ich deshalb die 
MICRO 86 in Frankfurt besuchen als mich ein 
Brief eines alten Freundes erreichte, der die 
Reise überflüßig machte. 


Lesen Sie (wenn’s noch geht) deshalb den 
Messebericht des allseitsgefürchteten Ernst G. 
Meint: 


Maan lieber Spezi F.W., 


Was maanst du was mir jedzt passiert iss. Du 
waast doch, daß des uff unserm ledzte Be- 
driebsausfluch uff de Weldchesdach in Frank- 
fort so gerechent hatt das dess Bier ganz dinn 
geworde iss. Isch habb mer gedenkt dess mer 
de Ausfluch nochemaa mache mißt un bin bei 
de Scheff gegange unn hob gefracht wies dann 
so wer domit. 


Der Kerl driggt mer zwaa Karde in die Hand 
unn sacht isch derft uff die Mess, ausgerechent 
uff die Computermess, als hätt isch die Kiste 
nit de ganse Dach um misch bei de Abeit. Isch 
hätt jo mei Klapp gehalde unn wär dehaam 
geblibbe, wär mer ach recht gewese, aber der 
Bruder hott des scho geaahnt, der hott gesacht 
ich sollt "em nachher alles berischde. No unn 
wenn isch schonn debei binn krieschste halt 
aach en Brief. Wenn der Seckel mir wenischs- 
tens des Geld fir die Buskarde gegebbe hätt, 
abber nee, do hockt er widder uff de Brief- 
tasch. 
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Isch habb desweche des Lissbettche, die wo bei 
unns immer pudzt eigelaade unn hob gesacht 
sie soll die aan Kard bezahle sonst kimmt ihrn 
Mann noch uff dumme Gedanke weil ich se 
einlade tue. Außerdem macht des Lissbettche 
immer so’n gude Katoffelsalad mit Frikadelle, 
da kimmt mer dann gans gud durch die Mess. 
Nitt das de mer jedzt krumm von mir denkst, 
ich hab defür die Busskard e bezahlt, die wern 
aach immer teirer hier. 


Zuerst wollde die misch gar nit reilasse, weil 
ich kaan Händler wer. Glaabste, die honn sich 


vielleischt inns Hemd gemacht. Zum Glick 
hotts Lissbettche des aane Medche gekannt weil 
des die Tochter von ihrm Hausmaster war. Die 
hott do uff Hostess geschobbt wie mer des 
jetzt nennt unn hot unns reigelasse. Mir wär 
lieber gewese ich het des Geld widdergekrischt 
und het haamgehe könne, abber ich hatt joa 
noch nix von dem Katoffelsalad. 


Mer habe erst mo so en oberflächlische Rund- 
gang gemacht um zu sehe wer jedzt alles do 
war. Isch kann der saache, do war was los. 
Unn Zeit habbe die Leit, stehe do rum und 
spiele mit ihre Maschincher. Do merkste dess 
die noch nix geschafft habbe. Wenn isch im 
Laade mo spiele will dann kimmt entwedder 
Kunnschafft oder de Scheff. Hier habbe se all 
die Ruh weg. 


Es Lissbettche wollt aach emoal spiele, uff de 
Arbeit käm se jo nitt dezu weil isch immer de 
meiste Dreck mache wuerd. Abber die Fraa 
stellt sich ann. Als der Verdreder ihr sacht se 
mißt mit dem Tschoistick spiele iss se gans rot 
gewodde hott gemaant se wer verheirat unn war 
beleidischt. Des hot misch e’halb Stund gekost 
bis isch der des erklärt habb. Was die als 
glaabt. do leeftste nur nebbeher unn bist als 
am erkläre. Bis die noachher an die Maus iss, 
ich kann der saache ! 


Die Dochder von ihrm Hausmeister, also die 
Hostess, die hott uns jo so e Schild ann de 
Kittel geklemmt wo druff stand mir wärn 
Händler. Gestimmt hott des jo nitt, aber des 
Medche war ja auch kaa Hostess. Also jeden- 
falls kaa rischtische, so wie se immer in de 
Zeitung stehe. Die hott ihr Arbeit mit Anstand 
gemacht, sonst hett des Lissbettche die gar nitt 
gegrießt. Abber was wollt isch dann jedzt 
saache... 


Ach so, ja. Also des Schildche mit dem 
Händler druff, der wo isch sein sollt, des war 
ee gud Idee. Was maanste was ich alles ge- 
krischt habb, des glaabste nitt. Do gabs an 


jedem Stand Plädzcher und Gekse unn Pla-- 


stikdüddcher die wo sonst immer beim ALDI 
enn Grosche koste. Also die Dudde, die Geckse 
sinn teirer unn warn bestimmt nitt vom ALDI. 
Unn ibberall wolldese mer was zum drinke 
gebbe. Aaner wolld, das mer mol beim Gläsche 
Schampus miteinander schwetze sollde. Isch 
wußt gar nit wodribber abber geschmeckt hotts 
schon. 


Jedesmol wenn isch e Schlicksche gehabbt habb 
dann wolldese e Unnerschrift von mir. No ja, 
mir wars egal, de Scheff hott mich ja uff die 
Mess geschickt, also ‚habb isch unnerschribbe. 
Ich nehm an, die wollte mit meim Boss den 
Sekt abrechne, sollese ! 


Nur de ganse Moin rumlaafe un Knöppcher 
drigge, des macht Hunger. Die paar Plädzcher 
mache misch aach nitt satt und uff den Sekt 
muss isch sowieso immer uffstosse. Als dess 
uffgefalle iss bei de Verdreder, habb ich dem 
Lissbettche gesacht das mer uns e still Eckche 
suche und die Frikadelle mit dem Salad esse. 
Erst habbe mer jo nix gefunne, die Mess war 
gans gut besucht, abber in so em klaane Ka- 
büffche habbe se immer geschwetzt unn da 
warn noch Stiehl frei. Die Hostess, jedzt abber 
e anner als vorhinn hott gemeent hier wärn die 
Seminare. Mir war des egal, isch hott en 
Wahnsinnshunger. Außerdem habb ich nix 
gesche die Seminare, kann mer als Verkäufer 
nit leiste gesche die Auslender zu sein. 


Wie mer dann drinn. warn habbe die ja aach 
deutsch geschwetzt. Nitt so gud wie ich, weil 
die Fremdwörder habbe se nit aus de Redd 
weglasse könne, abber es war schon rescht 
indressant was isch so mitbekomme habb. E 
bissche mußt isch misch schonn ärschern, mer 
habbe nemlich de Senf vergesse. Ich habb alle 
Sidznachbarn gefracht obb se aaner debei 
habbe, könnt jo sei, aber schließlich hott der 
Redner vorne gemaant mer täte steern unn mer 
solle unsern Senf laut saache. Der Bledmann, 
wo mer doch kaaner hatte, abber es ging aach 
ohne. 


So Kumbel. Jedzt waaste was es neues gibbt 
uff dem Kombjudersektor unn braachst dess 
Geld fir die Fahrt nitt uff de Kopp zu kloppe. 
Wann de doch komme willst vergess nitt dir 
was zum schnabuliern mitzubringe. In de Mess 
kost disch des de ganse Lohn. Unn nachher 
kommste mo uff e Schöppche bei mir vorbei, 
mer mache Erfahrungsaustausch abber du mußt 
zahle. Enn scheene Gruß noch vom Lissbettche 
unn von der Dochder von ihrm Hausmaster. 


Dein Ernst 
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SOFT-BOX-SERVICE Schneide, 
a 


. = pe-Box 


PREIS pro Kassette 14,90 DM uf 3" DISKETTE 24,90 DM 


- Weg mit dem Listschutz auf dem CPC - Sprungtabellen für Basic-Programme we Be - Roboter Kenia - Druckertreiber für den CPC 464 

- Spekulieren mit dem CPC - Komfortable Diskettenbefehle = = - Kreditvergleich - Wie alt werde ich 
- Druckerausgabe umgeleitet - Transferprogramm - Kassetten- Analyse Programm - Datei-Informations und Copier-System 
- Adressverwaltung - Kuchendiagramme - RAM-Editor (Hex-Monitor) 
- Großbuchstaben auf dem CPC 


- Basic XREF 3 - DATA-Zellengenerator - TURBO-SCREEN 
- Silvestermenue - Vokabeltrainer - TRANS COPY 2000 
- Tast-Def - Kalender - SFORMAT.COM - "DATABANK" 


. = Rec, Save, Load - Prognose - Firmware CPC und CP/M - Drucker laufen lernen 


- Ronny’s Maze - SYMBOL MANAGER DAR Griech. Zeichensatz _ 


Ei twicklung 
- FAST-LADER - RSX-BEFEHLE Be ertserzere] = Kacrumet. 
- SCREEN-SWAP - DREIECKE FÜLLEN — Weg umrechnen = Computerschrift 


- GRAFIX - ZAHLEN SCHIEBEN — Hardcopy Selkosha — Saper-BASIC 

= = Steuerzeich: 
- SCHIFFE VERSENKEN - SPACE SHUTTLE Federer rend a ee 
- SORT ee „ STURZFLUG : 


zuzüglich 4,- DM Porto und Verpackung. 
Versand nur gegen Vorausscheck oder Zahlung mit Briefmarken 
Bestellen Sie bitte direkt beim Verlag. Bitte keine telefonischen Bestellungen. 


SCHNEIDER-aktiv SOFT-BOX-Service 
Postfach 1201 
8540 SCHWABACH 
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Ihr kompetenter, autorisierter 
SCHNEIDER-Fachhändler 


1 RICHARD 


AEINRICH 


& SOHN N 


Winnender Str. 25-7054 Korb-Tel. 


COMPUTER GMBH 
7480 Sigmaringen-Rapp-Gässle»Tel. 075 71/12483 
Hard- u. Software - Peripherie - Literatur 


32513 


CPC-Hardware und Software 
GIGGE-ELECTRONICS 


Schneefernerring 4 
8500 Nürnberg 50 


Tel. 0911/84244 


> at TER DIVISION 


Ihr Fachhändler 


DATALOGIC 


COMPUTERSYSTEME 
SCHNEIDER ERWEITERUNGEN 
VORTEX VERKAUF 

DATA MEDIA BERATUNG 


INFOS gegen DM 2.40 SERVICE 
CALENBERGER STR. 26 
3000 HANNOVER 1 


8170 Bad Tölz - Marktstr. 38 - Tel. 08041/9739 TEL SI» SEN 


Ihr kompetenter, autorisierter 
-Fachhändler 


P>] CONPUTER DIVISION 


Aidenbach Tel: 08543/880 
Ortenburg Tel: 08542/7866 


Hard- u. Software, Peripherie, Literatur 
Fachkundige Beratung - kompletter Service 


7700 Singen, Freibühlstraße 21-25, Tel. 0 77 31/8 20 20 


ALLES FÜR DEN CPC 


STAUBSCHUTZ_ist wichtig! 
Hauben aus reißfestem, weichen Kunstleder für alle 


*Beratung*Hardware*Software*Service 
Computer, Drucker, Floppy’s, Monitore ... 
z.B.: für CPC 464 + Monitor zusammen DM 30,-- 


Info mit Materialmuster 80 Pfg-Briefmarken ACebu 


Händleranfragen erwünscht! FUNK+FERNSEHTECHNIK 
B.V. Steponaitis, Obere Str. 30, 8720 Schweinfurt 8939 Bad Wörishofen 


Weiherweg 4 - Tel. 08247/2171 


HANDLER-INFO 


ERNST TAUBENBERGER 


COMP ** 


u ** *50FT Weißenburger Straße 25 - 8900 Augsburg 


Software 


Händlerangebote erwünscht 


Softwareautoren gesucht 
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Hardware 
Software 


COMPUTER DIVISION 
1 Berlin 44, Karl-Marx Str. 243 030-6841098 


Literatur 


Woltermann - Electronic 
Computer - Datentechnik 


Ihr Fachhändler für Schneider-Computer 
Gute Beratung - qualifizierter Service 
Große Auswahl an Zubehör und Fachliteratur 


3414 Hardegsen / Solling Lange Str.27 Tel. 05505/1694 


Computer Reschke GmbH 
Hohe Str. 2la - 4600 Dortmund | 
BTX 92 15 09 Ruf 0231/16 00 14 
Wir führen Schneider 
und Zubehör 
eigener 48 Std. Service für alle Home-Computer und 
Zubehör 


"BrTE ME” COMPUTERSYSTEME 


Hardware-Software-Literatur-Zubehör zu Bombenpreisen 
für den Schneider und andere Systeme 
Preisliste anfordern 


WILHELMSTRASS 7 
5240 BETZDORF/SIEG 
TEL. 02741 - 23537 & 23107 

4 


.. Textverarbeitung... Kassenbuch- hard-&software 
führung... Rechnungsschreibung... Ch. Schebesta & Partner 
Kundenadressverwaltung... Mailmerge Frankfürker Str. 70, 6078 Neu-Isenburg 


... Hotelreservierung... Telefon 06102 / 37549 


Modulare Software 
für alle Schneider Rechner 


CPC 464, CPC 664, CPC 6128 


Beratung+Software+Hardware+Programmierung 


Schneider 


A+C Vertrieb, 1 Berlin 44, Emser Str. 18 


„alles für die Schneider-Computer! 


LUpmputer lersinal 
evertz 

Schneider 

LONPUTER DVISIAN 


ai-Adolt Fe 


r! 
Königsallee 63 ve bis ei a7 0737 


4000 Düsseldo 


"EER 


Ps 


DATA PE« 


4796 Salzkotten/W 


Lange Straße 27-29 


a = 
Da 
De (Ti 
SE 
Fe] Be 
De 
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N cd 
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IHR Computerfachhändler im Raum Koblenz/ 
Bonn/Neuwied 


Wir verkaufen nicht nur, sondern wir beraten Sie ausführlich. 


Unsere Werkstatt paßt bereits vorhandene Hardware an. 
Interessante Konditionen für Schüler, Schulen und Sammel - 
besteller. Fordern Sie unsere Preisliste an 


IRP - COMPUTERSYSTEME - KLEPPER 


Wilhelmstraße 27 - 5461 St. Katharınen - Telefon 02645/540 


Computer u. Bürotechnik 
Dipl.-Ing. Neuderth 
Frankfurter Straße 23 / Ecke Friedensplatz 
6090 Rüsselsheim 


Tel. 06142 - 6 84 55 


Beratung, Schulung, Programmierung, Software der Marken 


COMPUTER 
CENTER 


mca CC, Sindelfinger Allee 1, 7030 Böblingen, 07031/223618, 
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25 KLEINANZEIGEN 


Kleinanzeigen 


(Bestellschein s.Seite 29) 


BEREIE RE NEISSE SIE DIE DIE SE DIE DIE DRE IST DIE DIE SBE BBE SIE DIE SRE RE BBEIBE SIE SSEISEISE IE BIERSERSENIE3 BERSEISENE 


Das CPC-Programm für echte Börsengewinne. Diskette nur 
485,- DM/SFr. Beschreibung 'ca02‘ anfordern bei: 

Töngi Computer-Praxis, Aspeltstr.4, D-6500 Mainz. 

für die Schweiz: Denton Consultants AG, Auwisstr. 17, 
CH-8127 Forch/Zürich. 


DIE IRE DIE DIE DIE DIE BE DIEBE DBEDRE DBEBBE BOT DIE BE DIE RE BOESRE BBE DIESE DRESRE BBEBRE IST SIE SE IIE SE BBEE 3 RECHTE 


VERK. CPC 464, DD1, NLQ 401, TexPack, TURBO 
PASCAL, compl. 2.200 DM, CPC 664 1200,-; Tel. 
69131/25873 


DE BBEIIE IE DIE IS DIE DIE DRK DIESE DIE DIE IE DIE DIE DOR DDE DpE 3 DDR DOE DIR Dat at DIE Pat aDt Bor DIE Pat ar 35 RE PER 3 


CPC PROFI-PAINTER, Orginal VB 140,-- 
v.d. Biesen Tel. 02162/40536 


DR ISE REISE NIE DRK DOEIRE DOC DIE IE DUE IRRE DOEDRE BGE DRK DOEDRE DOT DUE RE DOEIIE DOC HIE EIER DEIN DE REIN DIE RE NEIN 


CPC - 6128 mit Farbmonitor, Spiele Joystick, 
6 Wochen alt, für DM 1900, -- 
Hoffmann 07711/683599 


DIEBE IE DIEBE DIE DIE IDEE DOC DIE DIE DIE IRE DUEIEIRE DOEIREDUE DSL IRE DIE DIE DBE DIE DIE DIESER BREI REISE A WERE WEINE 


* CPC 464 SUPERPROGRAMM 40 KB * 
Lohn u. Einkommensteuer 1985 mit 

allen Antragsgründen! Drucker oder Schirm! 
Cass DM 40,--; Scheck/bar 

Jürgen Bornemann Krempelsdorfer Allee 57, 
2400 Lübeck 1, Telefon 0451/494760 


DIEBE IUE DOC BE DRK DOE BE DUE DOE DRK DOE SEDRE DOE EDBE DOES DRE DOEIRE DOC IRRE DUE DOEDRE DOC IB DBE DOEDRE DUE BE A BE SREISEIE 


CPC 464 - 664 - 6128 - Kaufmännische 
Anwenderprogramme, Programm-Hilfen usw. Pechmann 
Schonhoverstr.2 8500 Nürnberg 10 


RE DBE IE DIE DIESE DIE BGE DIE DUE BE DUE DOEIREDUE DIE IRE DUE DIE DRE BGE SE DUE BE DRE DOC IREDUE SIE IE SSEBIEA — 5 BEREHEHE 


Wer kann mir bei der Lösung von Softwareprommen 
für den eigenen Bedarf weiterhelfen? 
Kontaktaufnahme bitte schriftlich -CPC 464 - 
A.Griese Am Silbersegen 8, 

3392 Clausthal-Zellerfeld 


DIE IRR IUE DIE DIE DIE IBEDUE DIE DUEIRE DOEDRE DUEDUE DOEDUE DOC DUE RE DOE DRK DOC DUEIRE DOEDRE DIE DIE BE DIE SIE SIE IE A HERE HEHE 


HH Professionelles Astrologie-Programm********* 
5 Seiten Persönlichkeitsanalyse + Grafik + Aspekt 
B.Schuhmacher 


Karl Zeiss Str. 14 
3200 Hildesheim 
Tel. 05121/23646 
BR IR ERIEIIE HIER DIE DIE DIE IE DIE DRK DUK DOC DIE DIE DDR DO DIR DIE DIL NE DIE DIE DIE REIHE REINE HE NERE RUHR RE REREHN 


SÄMTL. CPC-BÜCHER V. DATABECKER FÜR 50% 
LADENPREIS + PORTO, ALLE BüCHER LADENNEU, 
H-J.KROLL, AN DER KOPPE 73c 1/20 TEL.(030)3335432 


DEE SIE IE DREI DIE DIE DIE IRE DOC DIE HUR DO DIE DIE IR DO DOEDIE IB RE DO DOE DEE IE POEOEBIEIR IR DET RR REHR 
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RNEHEMER RENNEN NE ROHR IHR NENERUR ONIER EHER 


CPC464 LOTTO-STATISTIK 6/49* 


Wollten Sie nicht schon immer alle Ziehungen im Lotto 
untersuchen? Z.B. feststellen, welche Gewinnklassen Sie 
errreicht hätten, wenn Sie von Anfang an (1955) gespielt 
hätten? Oder Ihr System einem Realtest unterziehen? Mit 
diesem Programm kein Problem: Ergebnis mit Gewähr in 12 
sec (MC) ! Kass. 45,-- (E-Scheck oder +NN) Prg. kopiert 


sich auf Disc! Info: 1,-- Briefm. Günter Blatt 5509 
Schillingen 


RER RIE NR IERDE DIE DIE DIE DIE DRE DOC DIE DOE DIE DDR DIE AO DIE DIR DDR DIR DIE DER PO DEE DIE POL BIR DIEBE DE DORT DR 


Suche Grünmonitor GT65-Tausche mit original dBasell 
Klimmig 07841/61140 ab 18 Uhr 07842/3248 


RERR IX RENTEN DIE HR DIDI DIE RR DIE DOE DIR I DDR DIE DDR JB DO DOT DIE HR DIE DOE HET RO DIE DOEBEE RER RED HERR RE 


Alle CPCs-12 Spiele auf Kassette DM 20,- (Disc 30,-). 
Schein/Scheck an H. Behrend, Neustadt 3, 3550 Marburg 


RERERK REN IRRE DI DOCH UE DO DIEBE ID DO DIE DIR DD JB DDR DOE DIR PO DOT HIE HE RO RUDI HIERE RT BESREHEDE 


Preisgünstige Software aus Eigenentwicklung für alle 
Schneider-CPC-Computer enhalten Sie bei Friedrich 
Neuper Postfach 72, 8473 Pfreimd. Einfach Gratisinfo 
anfordern. 


ERENE NE NE NE NER ID DB DD DO DD DO DOEDOEDOEDOE DIE DIE DIE BUE DOLL JO DO DO DE EDDIE WERE 


V24 Interface 

O Zweifach V24/RS232 mt DC/DC 
O Mit Z80A-DART, Timer 8253 

O Für alle CPC. Maße 118x62x26 mm 
O Preis: ab DM 248,- incl. MwSt. 
Gundermann Mikroelektronik 
Lessingstraße 7 Tel.: 06227/52394 
6837 St. Leon-Rot 


BIER REINE IBE DREHTE RE DO DIE DUE DIE DO DO DDE DD DO DOT DIE DIE DE DOEDOEDDE DO DO DIE DIE DO DOT DIE BEE BED DE EIRERENE 


Schneider CPC 464 Flugtraining Boeing-727 Simulator. 
Dieses Programm ist zur Anfänger- und Instrumentenflug- 
Schulung geeignet. Detaillierte Auswertung der Flüge. 
Kassette 34 DM 

Info gegen Rückporto. 

Fluging. F. Jahnke, Am Berge 1 

3344 Flötho 1, Tel.: 05341/91618 


DREI IIE DIE NIE DIE SREIGEDIE SIE BUE DREIER IE DS DO DOC DOE DOC DOEDOEDBEBBESBEBBE DREIER DB 3BE BE 3 3UEDBEIDESDESDE 


Suche für Schneider CPC 464, 664 oder 6128 eine Bezugs- 
quelle für ein Programm, mit dem man Kreuzworträtzel 
erstellen kann. Wer kann mir helfen? Chiffre 018601 


RER R SIE REDRE HE II DIE IIE DEE I DO DOE DIE DE DOEDUE DDR DO DO DIE DIE OR DOE DIR DDE DO DIE DOE DIE FRE DIT IIESEE REDEN 


Notenverwaltung für die Schule! Berechnet Schnitt, Noten 
mit Wichtung, Noten und Klasssenlisten, Zeugnisnoten, 
Druck und Bildschirmausgabe. Unkostenbeitr. 50 DM 
Cass/Disc (Disc einsenden) 

Info (Freiumschlag): 

C. Berhold Rommelstr. 31 - 8783 Hammelburg 2 


ER IIE DIE DIE DIE DIE DIE DUE SE DUE SIE DUEDRE BGE DUE DIE DUE IE DOC DRK DIE DRE DIE DUE SE SUE RE DIE TIERE REINES HOR RUINE 


Bestellschein für Kleinanzeigen 


Ich bitte um Veröffentlichung folgender Anzeige in der nächsten Ausgabe von 
SCHNEIDERN-aktiv: 


Die Anzeige soll O 1mal O 2mal O 3mal hintereinander erscheinen 
O private O gewerbliche Kleinanzeige 
Jede angefangene Zeile kostet für private Anzeigen 5,- DM incl. MWST und für gewerbliche 
Anzeigen 7,- DM zuzüglich MWST (=7,98 DM). Senden Sie den Betrag in Briefmarken bezw. mit 
einem Scheck zusammen mit dem Kleinanzeigentext an: 
Verlag COMPUTER-aktiv 
Postfach 1201 
8540 SCHWABACH 


Achtung: Chiffre-Anzeigen werden nicht mehr entgegengenommen 


Vorname/Zuname - Firma 
Straße/Hausnummer 
Postleitzahl/Ort 


Datum Unterschrift 


r 
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Kleinanzeigen 


(Bestellschein s.Seite 29) 


DIR DIR DIE DIE DIE RE NIE DRK DIE DOC DRE RR DRK DUK DRE DIE DDR IIE RR D0R DIR DOC DDR IR DIR DIE DIE PIERRE DIR DE REINER RE AEIR 


Wer hat vor dem 31.1.86 ein Data-Media Diskettenlaufwerk 
geliefert bekommen? Wer hat ein Diskettenlaufwerk bezahlt 
aber nicht erhalten? Bitte melden Chiffre 038601 


ME IIE DEI DIE DRE DOC DUE E DUEDBE DBEDUE SE DUE IE DOEIRE DOEDBE DOC SUR RE DIE DRE DIE DEE DIESEL SIE ENT SIE NE I IERE HERE 


Handbuch für Datenfernübertragung mit vielen Tricks 
gegen Unkosten Info 80 Pf Leonhardt Auf der Reide 39, 
4 Düsseldorf 


BEE IE IE NE NEE EIN IE DIE IE DIE DIE DIE DIE DIE DRE DIE DIESE IE DEE SITE TE HEHE NEE HEHE WERE RECHTE 


SCHNEIDERN-aktiv sucht aktive Mitarbeiter im Raum 
SCHWABACH, FÜRTH, NÜRNBERG, ERLANGEN. Bitte 
schreiben Sie unter dem Stichwort "Mitarbeiter". Wir haben 
auch noch Lehrstellen frei. 


DIE IR DIE NE BIC DIE IE IDEE IE DUE IRRE DUE DIE DDEDBE DIE DUE DE DIEBE DUEDBE BE DUE RE DIE DRE DBESRE DBEDREBEDUE5 DIE SIESEIGE 


Schneider CPC 664/6128 Steuerberatungssoftware. Nur für 
steuerliche Berufe! Information bei CONCEPTION GmbH, 
2 Hamburg 61, Hubertusweg 14 anfordern. 


DUE30E D0EI0E DIE DUE SE 3UE UK DOC DUE € BGE 30€ DOED0E DOEDUE DOEDUE IE DUEDOE DE DUE DOEDUE IE DOEDOE DOESUE DOEDUE 5 BUE3BE DOC IGE 


CPC 464, grün, neu zum Sensationspreis von DM 699,- alle 
anderen Schneider Computer ähnlich günstig siehe Anzeige 
in diesem Heft - RITZLER - Softwareagentur 


BR SIE IRRE DIE IBE SIR DOE DIE DRK DOC DE DIE DIE IR DIR DIE JO DIE DE St DIE JO DIE Pat DIR DEE JOE DIR DIE DIE DIE Par aIE DR RER N 


464/664/6128 Biorhytm.: Partnervergleich + 1 S. A4 Krit. 
Tage+Grafik+vieles mehr!!! T.Schumacher, Ritterstraße 54, 
2120 Lüneburg Tel. 04131/49880 


DR IREIEIUN DIE DIE DIR DIE DIR DIE DIE DIR DR DDR 3DX DIE DDR 3IR DIE POEDIR DOT OIR DOT EDER DEE DRE REIN PER RT DEER 


CPC 464 LOHN- und EINKOMMENSSTEUER 

Super Jahresausgleich, Steuerklassenwahl, 
Monatslohnsteuer, zusammen auf Kassette 60,- DM. 
Jährliche Aktualisierung ohne Neukauf! 

Info gegen Rückporto: Horst Ilchen, Niederfelderstr. 44, 
8072 Manching Telefon 08459/1669 


IE REIE NE IE IDEE DIESE HE DIE IE DIE DIEBE IT DEI HEREIN PURE RUROR RUE REREE TS - BASEL HERE 
Verkaufe Orginal Software + Handbuch 
Hisoft-Pascal-120.-, 

Datamat 80.- 

Platinenkit 120,-, 

Devpac 70,- 

Tel 089/677833 So-Do ab 19 Uhr 


DIE IE IUR DIE IE DIR DIE RR D0E DOC I0X DIR DIE IX DIE DIE 3X DIE POL 3DE DEIN DE AED BEER RUHE AERO A HE RUREHE 


Programme aus Eigenentwicklung für alle CPC's. 
Gratisinfo anfordern bei 

Friedrich Neuper 

Postfach 72 8473 Pfreimd 


WERE IR REISE IN RRE HIER DIE OD BIER 30% DIE IR DIE JOE DIL DIE JOE DIR JOE DIR DIE POEDIE DIE DI RER A IRRE 


FARBMONITOR CPC 464 einzeln zu verkaufen DM 380,- 
Telefon 09233/9778 


IRRE IR DIE IRR DIE IUR DOCH I DIE OR DUE IR DOE DIR DOC DDE DIR DIR JO DOE DIE DREIER DO DIE IN DEI REIN A RE REINE 


RTTY (Funkfernschreiben) für alle CPC's. 
ASCIIv.Baudot bis 3000 Baud. 
Auch andere Afu-Software bei 
S.Peim, Friedrichstraße 32, 1000 Berlin 33 


EHER HEREIN RER IR DIE IR REISEN RE DIR NEIN IE RE IRE RER DR DEREN RER EEE ORUREREN 


RER RR R DIE DIE DIE DOC DIE DIE I DIE DR DIE DIE DIE DIR DO DIE DIE EDER PORT 


**GSS** CPC VERLAG 


zu C. 
Kalkulation & Graphik 79,- 69,- 
Statistik mit Graphik 9° == 
Programmdatei Disky 59,- 49,- 
Musikdatei LP oder wie 59,- 49,- 
Film & Videodatei 59,- 49,- 
Biorhythmus 34,-  24,- 
Home-Manager 69,- 59,- 


(Dat/Kalk/Termin) 


Auch 5,25” + 3.5" INFO = 1.-DM BRFM. 
Sportplatzstr. 12 3552 Wetter 


DR 0X RR DIESE IE DIR BOX DUE DOEOE ORION DUX DK DOC DOE DOE DOEDDR DOC DIE OEL DDR DU% DIE DIE OR DIR DDE DIE Dar RER ER 


Texpack f.SCHNEIDER 464 mit Handbuch 4 Wochen alt 
f.DM 120 -- zu verkaufen 
Tel.06195/61117 


IR IKT HR REIN RE IR DIN DIE II DR DIE DO DIR DIE AO DIR DOES DIE FREIE DEE DR DES WEDER DEE 


Gesucht für Schneider CPC 6128 auf Disk .Spiele jeder Art 
für Kinder ab 12 Jahre. 

Klaus Möller, Weltistraße 33, 8000 München 71, 

Tel. 797407. 


DIE MEI DIE DIE DIE RE BEIGE DIE DIE DIE DIE DIEBE DBEIGE SIE IRE SBE DIE BREI ISERDEHIE NIE RSEBERIERIERSE EA HER HERE 


Jedes Orginal Programm nur 3,- DM bei 

M.Schlarmann, Heinrichstraße 18, 2843 Dinklage. 

Liste gegen 0,50 DM Rückporto 

Nur auf Tape. 

IE IBEBSEBSE BED BREHE REDE BBBEUE BE BESSERES BBEBEBEDBEISEBBEREBEIBEBBERSEE 4 MEIBERBERE 


Aufrüstkit f. VORTEX SP64-SP320 99,- DM 
R.Willner Breslauerstraße 38 6114 Groß-Umstadt 
T.06078/4446 


IR RR RR IIE NEIN DIR DOC HOT IRR DIR DR DIR DIE DIE OR DUR DIE DIR DIE DOESDL DDR DIE DIE DIE DOE FORD DIE DDR DIE Dar A DR DEE DEE 


**+* _ _TOPANGEBOT FÜR SCHNEIDER CPC **** 


-> Laufwerk 3" (ideale Zweitfloppy) nur DM 19,-- 
Netzteil für 3" Floppylaufwerk DM 55,-- 
FLOPPY anschlußfertig als 2. Laufwerk DM 348,-- 


=> Machen Sie Ihren SCHNEIDER - CPC bereit für die 

Welt der ECB - Zusatzkarten: 

ECB-BUS-ADAPTER (Heft 2/86) - Bausatz DM 188,-- 
-> Nie wieder auf den Drucker warten... 

64 KB DRUCKER-SPOOLER mit Parallel-Anschluß 

Bausatz DM 198,-- / Baustein DM 250,-- 


SOFTWARE - SERVICE - RETHEMEIER, Viothoer Str.65a 
see 4900 Herford, Telefon: 05221/86798 **** 


_Software-Agentur Ritzler 


es > 
SFEFIIEIESTT 
SRENHRHTT I 


PP pP 7970] 


Vergleichen Sie die Preise - wir dürfen es nicht! 


CPC 464 mit grünem Monitor | DM 699,- 


CPC 464 mit Color Monitor DM 1149,- 


CPC 664 mit grünem Monitor DM 1248, - 


CPC 6128 mit Color Monitor 


Joyce 8256 mit Grünmonitor 


Diskettenlaufwerk mit Controler DM 699,- 
FDI Diskettenlaufwerk DM 539,- 


NLQ 401 Drucker DM 699,- 


Alle Preise zuzüglich DM 20,- Versandkosten pro Paket 
(Ausland 50,- DM) 
Versand nur bei schriftlicher Bestellung und gegen Vorausscheck 
Keine telefonischen Bestellungen 


8520 Erlangen St. Johann 86 


2 ZEICHENENTWICKLUNG. 


— selbst definiert... 


REM TKKIIIIIIITIIEEHHSEHHHHHHHHHHHHSHHBHHHHHHHHHHRBHHHHHHHHHHHHHHHHHHHHNN 
REM 

REM ZEICHENENTWICKLUNG 

REM 

REM Frank Martin 


REM 
REM RKKKKRKKRE TR KT RT TR TH HT TH HH TH TFT KT TTKH NIT TFT TH HT HH KHK TITTEN RR 
10 MODE 1 
20 WINDOW#1,17,24,8,16:WINDOW#2,1,40,25,25:WINDOW#3,26,30,8,15 
30 EVERY 25,0 GOSUB 700 
IO0O..REM=-=SFS HS rennen 
110 
120 /REM==3=5>= 7552-2242 0722355352 
130 LOCATE 9,1:PRINT CHRS$(150) 5; STRING$(20,CHR$ (154) ) ;CHR$ (156) 
140 LOCATE 9,2:PRINT CHR$(149);5" ZEICHENENTWICKLUNG "5CHRS$S(149) 
150 LOCATE 9,3:PRINT CHR$(147) 5; STRINGS (20, CHR$S (154) ) ;CHRS$S (153) 
160 LOCATE 17,6:PRINT "12345678" 
170 FOR i=1 TO 8:L0OCATE 14,7+i:PRINT i:NEXT 
180 ORIGIN 252,156:DRAWR 134,0:DRAWR 0,134:DRAWR -134,0:DRAWR 0,-134 
200. !REM=-F=- a ra ee ar anne 
210 
220 REM------------------------------ 
230 CLS#2:CLS#3 
240 PRINT#2, "Welche Zeile ? (1-8) (0O=CODES P9=NEU) 
250 x$=INKEY$: IF x$="" THEN 250 
260 IF xt="9" THEN RUN 
270 IF x$="0" THEN 510 
2820 IF x$<"0" OR x$>"9" THEN 250 
290 zeile=VAL(x$): zeil$(zeile)="" 
300 CLSH2 
310 PRINT#2," 0 = "5SCHR$ (24) 5;CHR$ (233) ;CHR$ (24) 35" und = "SCHRS(A 
43) 
320 LOCATE 14,zeile+?:PRINT CHRS (24) 
330 LOCATE 15,zeile+?7:PRINT USING "#";5zeile:PRINT CHRS$(24) 
340 cursor=-i 
350 FOR pixel=1i TO 8 
360 a$=INKEY$:IF a$="" THEN 360 
370 IF as(>"1" AND a$‘>"0” THEN 360 
380 zeil$(zeile)=zeil$(zeile)+a$ 
390 IF a&="1" THEN LOCATE#1,pixel,zeile:PRINT#1,CHR$(143) 
400 IF a&="0" THEN LOCATE#1,pixel,zeile:PRINTH1,CHR$ (128) 
410 NEXT pixel 
420 cursor=0 
430 LOCATE 15,zeile+?:PRINT USING "#";zeile 
440 GOTO 210 
500 REM---------------------- ------ 
510 
520 REM--------------------- ------- 
530 
540 FOR zeile=i TO 8 
550 code (zeile)=0 
560 FOR pixel=1 TO 8 
570 eodetzeile)=code(zeile)+(VAL(MID$(zeil$(zeile),pixel,1)))*2”(8-pixe)) 
580 NEXT pixel 
590 LOCATE 26,zeile+?:PRINT code(zeile) 
600 NEXT zeile 
610 PRINT#2," Weiter auf Tastendruck" 
620 x$=INKEYS:IF x$="" THEN 620 
630 GOTG 200 
700 REM------------------------------ 
710 
720 REM-------------------------- as 
730 IF cursor=0 THEN RETURN 
740 LOCATE#1,pixel,zeile :PRINT#1,CHR$ (95) 
750 FOR i=1 TO 150:NEXT 
760 LOCATE#1,pixel,zeile:PRINT#1,CHRS(128) 
770 RETURN 
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— selbst definiert... 


Das Programm erfüllt folgende Bedingungen: Dies währt so lange, bis die Zeile vollständig 
abgearbeitet wurde. Nun folgt wieder die 

- vergrößerte Darstellung des Zeichens bei der | Grundabfrage. Da Mehrfachbearbeitungen der 
gesamten Bearbeitung Zeilen ohne weiteres möglich sind, kann das 

- Ausgabe der Dezimalcodes für das Zeichen so lange bearbeitet werden, bis es 
SYMBOL-Kommando gefällt. Antwortet man nun auf die Grundab- 

- kurzes Listing frage mit (0), so werden die Zeilencodes 
- "narrensichere" Benutzerführung rechts neben der entsprechenden Zeile ausge- 
geben. Das Zeichen kann nun mit einem ent- 

Nach dem Start: Es präsentiert sich ein 8X8 sprechenden SYMBOL-Kommando in den ei- 
Zeichen großes, leeres Quadrat, als vergrös- | genen Zeichensatz übernommen werden. Um 
serte Darstellung des zu entwerfenden Zei- | dem Benutzer während der Bearbeitung stets 


chens. Gleichzeitig werden dem Benutzer am | zu zeigen, wo er sich befindet, wird einerseits 
unteren Bildrand die Eingabemöglichkeiten | die aktuelle Zeilennummer invertiert, anderer- 
dargeboten. seits zeigt ein Cursor die jeweilige Position in 
der Zeile an. Da der Original-Cursor der Dar- 
stellung eines gesetzten Pixels entspricht, wur- 
de mit Hilfe eines kleinen Unterprogramms 
ein blinkender Strichcursor geschaffen. (Frank 


- (1-8) für die Wahl einer zu 
bearbeiteten Zeile 
- (0=CODES) für die Ausgabe der 


Dezimalcodes Martin) 
- (9=-NEU) für einen Neubeginn 
j . . . Variablenliste: 
Wählt man eine Zeilennummer, so stellen sich 
einem zwei Eingabemöglichkeiten dar: Sulttelnistart erlangen 
- pixel......... Pixelnummer 


- (0) für ein leeres Pixel 


() für ein gesetztes Pixel - zeil$(zeile)..enthält Binärcode der Zeile. 
g= ur ei 


ERROR WIE O IHRE 


2 
: 
1 
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8: :0:.::0: 0:20:.202.6: 06, 0.08 0% 9:-0%0%° © .8:8.,9.0'8 


IS RKRKRHKRRRHRKRHTTHTT NK 
28 °’%* Lottozahlen * 
s6 ’* Ein Programm von * 
4d ’%* Eckart Heinrich * 
SEP RKRKRRKRFKTTTTTTITI IR 


194 


1189 MODE 1:INK 8,9: INK 1,26:INK 2,2:INK 3,6,@:SPEED INK 29, 2&: BORDER @:P 


EN 1:PAPER 6 


128 
138 
1944 
159 
16% 
178 
188 
198 
2084 
218 
228 
236 
244 
258 
268 
278 
28% 
278 
E77] 
s1d 
328 
334 
349 
353g 
368 
378 
38% 
398 
468 
418 
424 
434 


LOCATE i1,1:PEN 2:PRINT"Lottozahlengenerator" 

LOCATE 11,2:PRINT"-------------------- ":PEN i 

LOCATE 1,5:PRINT"Dieses Programm berechnet, je nach" 
PRINT:PRINT"Wunsch, sechs oder sieben Zufallszahlen." 
PRINT:PRINT" (Samstags- oder Mittwochslotto!)" 
PRINT:PRINT:PRINT"Sie sollten sich vor der Ziehung von 
PRINT:PRINT"ordnungsgemaessen Zustand der am rechen- 
PRINT"vorgang beteiligten Chips ueberzeugen!" 


LOCATE ?7,22:PEN 2:PRINT"Weiter mit beliebiger Taste":PEN 1 
taste$=INKEY$:!IF taste$="" THEN 258 ELSE 29@ 
x wahl 


CLS:PRINT"Samstags- oder Mittwochslotto (S/M)" 
taste$=INKEY$:IF tastes="" THEN 386 ELSE 318 

tage$&=UPPER$ (taste$):IF tages{>"M" AND tage&<>"S" THEN 369 
LOCATE 1,3:INPUT "Wieviele Zahlengruppen <Enter> ",zahlg 
PRINT!CLS: PRINT 

zahlg=ABS(zahlg) 

IF tage$s="M" THEN anz=? ELSE anz=6 


FOR m=i TO zahlg 


FOR i=1 TO anz 
zahlen(i)=INT(RND*kugl+1) 
NEXT i 
FOR s=1 TO anz-i 
FOR p=s+i TO anz 
IF zahlen(o)=zahlen(s) THEN 418 
IF zahlen (p)<zahlen(s) THEN GOSUB 1909 
NEXT p 
NEXT s 
FOR k=1 TO anz 
PEN 2:PRINT USING "## ";zahlen(k); 
NEXT k 
PEN 1:PRINT:PRINT 
NEXT m 
PRINT 
PEN 3:FRINT"Alle Angaben, ohne Gewaehr !!"ipEN i 


PRINT:PRINT"Weiter mit beliebiger Taste! ( E=END )" 
taste$=INKEY$S:IF taste$="" THEN 588 ELSE 598 
IF UPPER$(taste$)="E" THEN 688 ELSE 299 


rette=zahlen(s) 
zahlen(s)=zahlen(p) 
zahlen (p)=rette 
RETURN 


0: 0% ©: 29: 70. "0230: v9! 29: 208 29: 20: 1:9 0-0, 9: 0: 78,9, 20°. 70,790: 0 


Schneider 


LOTTO-MILLIONÄR ©“ 
MIT DEM CPC 


Lottospieler unter den CPC-Freunden aufgepaßt: Heute stellen 
wir Euch ein Programm vor, daß das Herz jedes Lottospielers 
höher schlagen läßt.Es erzeugt wahlweise (!) 6 aus 49 oder 7 
aus 38 zufällige Zahlenkombinationen. Diese sind gedacht für 
das Samstags- bzw. Mittwochslotto. Des weiteren hat man die 
Möglichkeit, sich gleich mehrere Zahlengruppen erzeugen zu 
lassen. Zum Beispiel zehn Zahlenkombinationen für einen 
kompletten Lottoschein. Dieses Programm dürfen wir den 
lottospielenden CPC-Usern nicht vorenthalten. Viel Glück! 
(Eckart Heinrich). 


BRREREIE EEE IE RE NERE IE REIKI REICHE NEUERE REISERE EEE IENE EEE BEEREISEREBEIERE BEE BE EEE BEDIENEN REENERENESENENER 


©) 
® 
®) 
©) 
O 
®) 
®) 
®) 
O 
©) 
O 


) 


SR, © IE 3 DE 9 u 6 Ze ar Eee u ee 


[e\ 
ae 
a 
r - aalEı 
Variablenliste 


tage$ =Samstag bzw. Mittwoch 

tastes ="warten auf Taste" 

zahlg =Anzahl der gewünschten Zahlengruppen 
zahlen(n) =Zufallszahlen (sechs oder sieben) 
kugl =obere Grenze (38 oder 49) 

rette =Zwischenspeicher 

m,i,k,S5,Pp =Schleifenvariablen 


re ee auf einem CPC-464 mit Farbmonitor 
aur allen Modellen. Bei Grünmonit i 
eine INK-Anpassung notwendi i ee 
9. Aber das ist ja kein Probl 

Beim Abtippen ist vor allem darauf zu achten, daß in Zeile Siö 


die zwei Leerzeichen bei : 
("222 USING "HH > USING Kommando nicht vergessen werden! 


Sure Er ae ee 


SINNVOLLER DRUCKEREINSATZ 


Ya 


6) 


Um den Drucker sinnvoll einsetzen zu können, benötigt 
man viele Steuerbefehle, die man immer wieder mühsam 
eintippen muß. Dieses Programm stellt Ihnen diese 

Befehle zur Verfügung. (Andreas Müller) 


10° ee Printhelp CR 4644 see 
20 


AO 


” 


” 


(2) Andreas Mueller 
100 ° Tastaturpuffer leeren 
110" 

120 CALL %BEOS 

130° 

140 ° Tastenbelegung 

120° 
120 KEY 
170 EEY 
120 KEY 
170. KEY 
200 KEY 
210 KEY 
ZEO KEY 
Z30 HEY 
240 KEY 
250 


] 
| 
I 
) 
l 
1 
) 
j 
j 
j 
l 
| 
| 
) 
| 
| 
j 
l 

"Print HS." 

| 
I 
) 
| 
| 
j 
l 
I 
| 
I 
260°" Ziffernblock alte Funktion I 
) 
) 
j 
| 
j 
| 
| 
j 
| 
) 
| 
| 
| 
| 
| 
) 
| 
) 
| 
| 
) 
| 
| 
) 
| 
| 
| 
) 
| 
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‚"chrs$(1löo)" 
10, "chr$ (14) " 
‚ "chr$ (20) " 
‚"chr$(15)" 
3, "chr$ (12) " 
‚ "chr$(2793 
‚ "chr$ (27) schr$ (72) " 

‚"chr$ (279 schr$ (78) schrb tl)" 


bil 


22 


v 


ul 
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Bi 
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I 

I 

I 

[ 

I 

I 

I =70 ° 

I 250 KEY DEF 15:0,43,42.48 

' 30 KEY DEF 740,46,46,46 

300 KEY DEF 3:9 13.135,13 

| F10 KEY DEF 13.0.49,49,4%9 

ı 320 KEY DEF 14.0,.50.50.50 

| 330 KEY DEF 5.0.51-51-51 

ı 340 KEY DEF 20,0.52,52.52 
350 KEY DEF 12: 0,53.53,53 

| 340 KEY DEF 4,0,54,54,.54 

| 376 KEY DEF 10.0,59,55,55 

| 350 KEY DEF 11:0. 56: I, 56 

| DEF 3: 0,57:57,57 

I 

| 

j 

j} 

| 

| 

| 

| 

| 

| 

| 

| 

I 

| 
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Funktionen auf Taste + ZETRLH 


430 KEY DEF.27:1-112:50, 122" p "print #5 

440 KEY DEF 35:1:112,26: 1297" v »Zeilenvorschub 
=0 EEY DEF S2:1:103:71:130 ° q »Zeichenvergroesserung ein 
420 KEY DEF 44:1:104.72:131 " Hh Ra aus 

470 KEY DEF 552:,1:101:67: 132" e „Zeichendverdichtung ein 

420 KEY DEF 50.1:114,22,.133 ° vr F Aus 

470 KEY DEF &1:1:100,&65,. 134 ° d »Zeichendoppelanschlag ein 


S00 KEY DEF 53.1:102,.70,.135 = aus 
S10 EEY DEF 46:1:110,70, 134 ° =NLE - Aus 
SR Bu 
30 ° Nachdem das Frogramm mit ZRUN: 
40 ° Sie es ohne Bedenken mit {NEW 
==0 ° Die Belegung bleibt dennoch bis 


oO: 0: 20. 20- 0: 30: 0: 297.0: 70.20. vQ 19:79: 0:0, 0: 20:07. 78 


gestärtet wurde, koennen 
loe 


scher. 


© 
[e) 
zum Reset erhalten. 


E ©: © 2:0: 10:70:80: 70). 70.9: 70: © 0:70,70. 20% 8 ©, 9.29..0 0: 90 
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UMRECHNEN: 


WEG — Umrechnungsprogramm 


©) 


Bei dem Programm "WEG" handelt es sich um ein Maßstabsumrechnungsprogramm. 
Einige Details zum Programm: 


Nach dem Laden werden Sie aufgefordert, den Maßstab, den Kartennamen sowie deren Hersteller 
einzugeben. Weiterhin werden Sie gefragt, ob Ziel und Start gleich sind. Das Programm erkennt 
das Ende der Strecke aufgrund des Vergleiches Anfangsort/Zielort. Deswegen ist hier eine absolut 
buchstabengenaue Eingabe erforderlich. Während der Eingabe erscheint in einer Zeile am unteren 
Bildschirmrand der Maßstab, der Kartenname und die bis zur letzten Eingabe insgesamt zurückge- 
legten km. Weny Start und Ziel als übereinstimmend erkannt werden, wird die Gesamtstrecke 
ausgerechnet sowie die gesamten mm. Anschließend werden Sie nach der benötigten Zeit gefragt, 
sowie nach der Druckausgabe. Nachdem Sie bei der Druckausgabe mindestens ein Exemplar 
gewünscht haben, bzw. keine Druckausgabe wollten, endet das Programm. 


Die deutschen Sonderzeichen befinden sich auf den Tasten mit den eckigen Klammern sowie mit 
dem Pfeil, und das "ß" ist über CTRL und "=" zu erreichen. 


Interessant dürfte das Programm für Wanderclubs, Radfahrer, Autofahrer usw. sein. Ich stelle mir 
auch eine praktische Anwendung bei Vertretern vor, die gerne vorher wissen wollen, wie weit sie 
fahren müssen. Aufgrund der Druckausgabe haben ambitionierte Wanderer/Radfahrer/Jogger die 
Möglichkeit, sich ein kleines Archiv über zurückgelegte Strecken anzulegen. (Wolfgang Buldt) 

PERSEEEEEEEIEBEREEEREIEELCHDEPDERREDRDDUID LE LEDER 551) 2725505050 


Berechnung der Entfernung 


von bis mm km 
Bingen Ingelheim 45 13.50 
Ingelheim Mainz 55 16.50 
Mainz Rüsselsheim '&B 20.40 
Rüsselsheim Frankfurt 95 28.50 
Gesamt - mm ı 263 

Gesamt - km 78.9 


©: 7:10:05 30: 70: 0 O2 879.0» 00:19: 70.9: 987° ©: ©9-® 


Karte ® Rheinland-Pfalz 
Verlag = JRO 

Maßstab » 1: 300000 
Zeit (Stunden) :0 

Zeit (Minuten) : 50 
Durchsch.geschw. : 94.7 km/h 


TEREEETTTRTI TINTEN 


38 LISTING 


®) 


©: 20:20:70. O7 ©: 20, .70:.0° 79. 0: 0:0: © 8: ©. 0 9.9.9.9: 9 


UMRECHNEN 


WEG — Umrechnungsprogramm 


10 REM Programm WEG 

=O REM zum umrechnen eines Masstabes (mm in km) 
30 REM copyright bei Wolfgang Buldt 

“40 REM = 

50 REM deutsche Sonderzeichen 

60 SYMRLÖL AFTER 90 


70 SYMBOL 91,&X1011010,&X111100,&X1100110,&X1100110,&X1111110,&X1100110,&X110011 


0,&X0 


80 SYMPOL 92,&X10111010,&X1101100,&X11000110,&X11000110,&X11000110,&X1101100, &X1 


11000, &X0 


90 SYMBOL 93, &X1100110,&X0,&X1100110,&X1100110, &X1100110,&X1100110,&X111100,&X0 
SYMBOL 123, &X10O01000, &X0, &X1111000,&X1100,&X1111100,&X11001100,&X1110110,&X0 
SYMBOL 124, &X 100100, &X0, &X111100,&X1100110,&X1100110,&X1100110,&X111100,&X0 
SYMBOL 125, &X1000100, &X0, &X1100110,&X1100110, &X1100110,&X1100110,&X111110,&X 


100 
110 
120 
Ö 
130 
100, 
140 
150 
160 
170 
180 
190 
200 
210 


ze 
we 


SYMBOL 126, &X111000,&X1101100,&X1101100,%&X1101100,&X1100110,&X1110110, &X1101 


&X1100000 

KEY DEF 24, 1,124,92 

KEY DEF 19,1,125, 93 

KEY DEF 17,1,123, 91 

KEY DEF 25, 1,45, 61,126 

REM Programmstart-Karte,Masstab, Ziel 
CLS:MODE 1 

a$=5TRING$ (20, CHR$(Z50)) 
c-$=S5TRING$ (20, CHR$(Z51)) 

LOCATE 1,2:PRINT a$, :LOCATE Z1,2:PRINT c$ 
LOCATE 1,25:PRINT a$, :LOCATE Z1,25:PRINT c$ 
LOCATE 3,4:PRINT "BERECHNUNG DER ENTFERNUNG IN 
PRINT 

PRINT"Bitte geben Sie den Marstab ein!" 
INPUT"Der Marstab ist 1 : ",Mass 
PRINT:PRINT "Es handelt sich um die Karte " 
INPUT "mit der Bezeichung "‚karte$ 
INPUT"des Verlages ",Verlag$ 
PRINT=:PRINT"Sind Start und " 

PRINT:PRINT TAR(15)5"Ziel" 

PRINT TAB(20);5"der gleiche Ort? J/N?" 
PRINT 

a®=INKEY$:IF as="" GOTO 350 

IF a$ = "j" OR a$="J" THEN 410 

IF aß="n" OR a$="N" THEN 380 

PRINT"Bitte tippen Sie jetzt das ZIEL ein!" 
INPUT "Das Ziel lautet ",Anfang$:GOTO 410 


REM Streckeneingabe 
cL.S 
MODE £ 


WINDOW #0, 1,80, 1, 24 


PRINT#O, "Bitte geben Sie nun die Orte und Entfernungen 


DIM entf$(25) 

DIM centim(25) 

DIM km(25) 

PRINT#O, "von bis 

WINDOW #1,1,685, 25, 25:WINDOW #2, 65,80, 25,85 


km" 


Mit 


CLS#1:PEN #1,0:PAPER#1,1:°CLS#Z:PEN#2,D:PAPER #2, 1 


PRINT#1, "Karte: "5; 
PRINT#1, USING "\ \ ";karte$; 


PRINT#1," Mavwstab 1 :"5 
PRINT#1, USING "HH##H#HHH#" jmass;j 
PRINT#1," Gesamt-km: 2 
PRINT#Z," a 


ein!":PRINT#O 


02:0, 0: 207 0: 9.07 70:70. 0:.8 20.07.0928 .01.:.9,02 07.9.0070 


WEG — Umrechnungsprogramm 


° 
° 
° 
° 
° 
° 
° 
° 
° 
° 
° 
° 
° 
° 
° 
° 
° 
° 
° 
° 
° 
° 
° 

Be, 


570 
580 
590 
600 
610 
6ZO 
630 
640 
650 
&60 
670 
&80 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 


LOCATE 1,5: INPUT5 "",Beginn$ 
FOR i = 1 TO 25 
PRINT #0, TAB(Z1);5 
PRINT #0, TAB(39)5 
cm=centim(i)tem 
kin(i)=centim(i)%*mass / 1000000 

PRINT #0, TAB(5&);km(i) 

kme=kme + km(i) 

PRINT#Z, kme 

IF entf$(i)=beginn$ OR entf$(i) = anfang$ THEN GOTO 680 

PRINT #0, entf$(i),:NEXT i 

b$ = STRING$(80,"-") 

PRINT:PRINT b$:PRINT"Die gesamte Strecke ist auf der Karte "cm" mm 
PRINT,"in Wirklichkeit "kme" Kilometer lang.":PRINT b$ 

PRINT "Bitte geben Sie jetzt die Zeit ein!" 

INPUT "Wieviele Stunden" ;stund 

INPUT "Wieviele Minuten" 5Minut 

Zeit = stund * 40 + minut 

IF zeit =0 GOTO 790 

durchz = kme / zeit 

durchst = durchz*&0 


= INPUT5"",entf$(i) 
®: INPUT5"",„centim(i) 


PRINT,"Die Durchschnittsgeschwindigkeit ist demnach ca." USING"###.#" 35 durchs 


t, PRINT " km/h." 


790 
800 


PRINT b$ 

PRINT ‚"W’nschen Sie eine Druckausgabe? J/N" 

d$ = INKEY$:IF d$="" GOTO 810 

IF d$= "n" OR d$= "N" THEN GOTO 1220 

PRINT "Ist der Drucker bereit? <ENTER> ?" 

dr $=INKEY$: IF dr$="" GOTO 840 

IF dr$= CHR$(18) GOTO 840 

INPUT "Wieviel Exemplare sollen gedruckt werden" janzahl 
FOR anz = 1 TO anzahl 

REM DRUCKAUSGARE 

PRINT#8, CHR$(Z7) 5 "R" 5CHR$ (1) 5: REM laendersatz 
PRINT#8, CHR$ (27) 5 "C" 5CHR$(71)5: REM blattlaenge 
PRINT#8, CHR$(Z7IS"M" 5: REM Eliteschrift ein 
PRINT#8, CHR$ (27) 5CHR$(B7)5SCHR$(1): REM Breitschrift ein 
PRINT#B," Berechnung der Entfernung" 

PRINT#8, CHR$(Z7) 5CHR$(B7)SCHR$S(O): REM Breitschrift aus 
PRINT#8:PRINT#8,5PC (10) b$ 

PRINT#8:PRINT#8 

PRINT#8,5PC(10) "von bis 


PRINT#8B 
PRINT#8,SPC(10) USING "\ ";beginn$; 
FOR ef = 1 TO i 

PRINT#8, USING "\ "zentf$lef); 
PRINT#8, USING "#H##"5;centim(ef), :PRINT#8," 
PRINT#8, USING "HHH#.44#" 5; km(ef) 

IF ef = i GOTO 1070 

PRINT#8,SPC(10)USING "\ "Zentf$lef); 
NEXT ef 

PRINT#8:PRINT#8,5SPC (10) bS:PRINT#8 
PRINT#B, SPC(10) "Gesamt — mm s"zchm 
PRINT#B, SPC(10) "Gesamt — km :";kme 
PRINT#8,SPC(10) b$ 

PRINT#3, SPC(10) "Karte : ";karte$ 
PRINT#8, SPC(10) "Verlag : ";verlag$ 
PRINT#3, SPC(10) "Marstab : 1: "jmass 
PRINT#B, SPC(10) "Zeit (Stunden) s";stund 
PRINT#8, SPC(10) "Zeit (Minuten) :";minut 
PRINT#B, SPC(10) "Durchsch.geschw. :" 
PRINT#3, USING"##H#.#"5;durchst, 
PRINT#8, " km/h" 

PRINT#8B,SPC(10) b$ 

PRINT#8, CHR$(1Z2) REM neue Seite 
NEXT anz 
PRINT b$ 


5 


lang und" 


PRINT"Bitte starten Sie f!r eine neue Berechnung das Programm mit <RUN> ! 


PRINT b$ 
END 


©. 20: 0% 10.104 >09: 70-00: 0::9 0-0: 0.9 9.09.09 8-9 9 9.9: 0 
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"Speziell der Beitrag über den 
professional erscheint mir für viele Schneider 
CPC 464-Besitzer sehr wichtig. Ich wäre an 


_ einer solchen Umrüstung meines alten (?!) 464 


sehr interessiert, vor allem zu dem zu 
erwartenden Preis von ca. DM 500,-. 
Momentan trage ich mich mit dem Gedanken, 
eine ausbaufähige Speichererweiterung zu 
erwerben (dafür ist der Erfahrungsbericht auf 
S. 67 schon sehr hilfreich). Da jetzt nur noch 
die Vortex-Erweiterung in Frage kommt, wäre 
es für mich wichtig zu wissen, ob ich eine jetzt 
gekaufte Vortex-Erweiterung auch für den ”..." 
4512 + professional verwenden könnte, oder ob 
ich die Speichererweiterung erst bei oder nach 
der hoffentlich bald möglichen Umrüst- 
/Umtauschaktion kaufen sollte”. 
Wolf-Ekkehard Schmidt: 


Anmerkung der Redaktion: 
Wir haben das Schreiben an den Hersteller des 
Umbausatzes weitergeleitet! 


"Ich bin Besitzer eines CPC 464, mit dem ich 
sehr zufrieden bin. Mich interessiert es nun zu 
erfahren, wie man div. Poke's (Lebensver- 
längerung und ähnl.) aus den Computzeit- 
schriften in den Rechner bekommt und auf 
welche Art und Weise erfährt (berechnet) man 
bei den Spielen (z.B. FINDERS KEEPERS, 
NONTERRAQUEOUS und ähnl.) die jeweili- 
gen POKE Adresse?" 

Wolfgang Theissing 

Mariestraße 18 

4402 Greven 1 


Ihre Zeitschrift finde ich, ist die beste, die 
zur Zeit auf dem Markt ist. Weiter so! (Bruno 
Römer) 

ER ENREIE NEN HENRI NENNEN NENNE NE NEE EINEN NE IE IE NERERERENE NENNE WINE 1 S NERERERGKE 


Wir erhielten wieder Körbe von Post. Aus den 
Leserbriefen können wir daher wiederum nur 
einige wahllos herausgegriffene abdrucken. 
Wir bitten um Verständnis. Schreiben Sie uns 
weiterhin - für alle, die an dieser Zeitschrift 
mitarbeiten, ist jeder Brief - ob positiv oder 
negativ - eine Bestätigung für den richtigen 
Weg oder ein Hinweis es besser zu machen. 
Derzeit sind wir - wir erhalten als aktive 
Zeitschrift wirklich körbeweise Post - nicht 
in den Lage jeden Brief zu beantworten. Wir 
versprechen Besserung und bitten um Nach- 
sicht. 


"Hiermit möchte ich Ihnen zu Ihrer hervor- 
ragenden Zeitschrift gratulieren. Die Beiträge 
treffen den Nagel genau auf den Kopf. Ihre 
Zeitschrift ist im Ganzen weniger eigennützig 
als ich dies von anderen her kenne.” 

Jens Rohwender 


"Um Euch teure Irrtümer zu ersparen, hier 
meine Erfahrungen: nach dem Einbau einer 
Vortex-Speichererweiterung SP 512 sind einige 
Programme nicht mehr lauffähig: 


1. Daley Thompson‘s Decathlon 
2. Sorcery 

3. Terrormolinos 

4. Nonterraqueous 

5. Highway Encounter" 

A.N. 


Anmerkung der Redaktion: 

Das neue vortex Betriebssystem kann mit 
einem Befehl softwaremäßig abgeschaltet 
werden. 


"In Ihrer Zeitschrift "Schneider-aktiv" habe ich 
sehr interessiert den Artikel über die Aufrüst- 
barkeit des CPC 464 gelesen. Da ich selbst im 
Besitze eines solchen Gerätes bin und es mir 
tatsächlich schon überlegt habe, auf den CPC 
6128 oder Joyce umzusteigen, finde ich die 
Idee sehr gut, kleinere Geräte auszubauen, an- 
statt sie wahrscheinlich mit sehr großem Ver- 
lust zu verkaufen. 

Frank A. Stumpf 


"Vor zwei Wochen habe ich mir das Adventure 
"JEWELS OF BABYLON" gekauft. Ich bin to- 


tal fasziniert von diesem Adventure. Im 
JUNGLE und im THICKET MAZE habe ich 
alle Gefahren überstanden. Auch den 
OCTOPUS konnte ich mit dem SPEAR töten, 
um an das GUNPOWDER zu kommen. Die 
MATCHES hatte ich mir vorher schon aus der 
CANNIBAL‘S VILLAGE geholt. Das CROCO- 
DILE konnte ich nun mit Hilfe dieser Dinge 
töten. Auch gelangte ich dann noch zu PIRATE 
und seinem PARROT. Den PARROT tötete ich 
mit Hilfe der giftigen FRUIT aus der 
CANNIBAL‘S VILLAGE. Den PIRATE konnte 
ich dann mit dem Gewehr töten. Doch dann 
war ich mit meinem Latein am Ende." 


Und nun meine Fragen: 
- Was hat es mit dem "SMOOTH, 


VERTICALE SLAB OF ROCK" auf 


sich’ Kann man damit überhaupt 
etwas anfangen? 

- Was ist mit der Wand in der 
Piratenhöhle, aus welcher Wasser 
heraus tropft? 

- Was kann man mit dem "SHOE, 
PLANK, SEXTANT, COCONUT, 
SKULL, EYEPATCH, CROWBAR" 
machen? 


- Was kann man mit dem "LARGE 
STONE" in der Piratenhöhle machen? 
- Wie kommt man zum HARBOUR, den 
man vom CLIFF BOTTOM aus sieht? 
- Wie gelangt man zum RIVER, der in 
der Nähe der BRIDGE beschrieben 
wird? 
Ralf Flederer 
Marienplatz 9 
8714 Wiesentheid 


"Angeregt durch die Kummerecke in 2/3/86 
muß ich doch auch mal einen Tip einholen. Ich 
besitze die VORTEX Erweiterung 64 K, aufge- 
rüstet auf 256 K + 64 K mit dem neuen VDOS 
2.0. Zur Entspannung möchte man ja mal ein 
Spielchen wagen und da hapert es bei einigen 
Sachen!" 

Ulrich Siepert 


Anmerkung der Redaktion: 
Das neue vortex Betriebssystem kann mit 
einem Befehl softwaremäßig abgeschaltet 
werden. 


"Unmittelbar vor dem Kauf eines Computers 
stehend, frage ich mich, ob ich den "464" mit 
Cumana-Floppy 5,25 Zoll und Vortex-Speich- 
ererweiterung SP 64 oder den "6128" kaufen 
soll. In beiden Fällen erhalte ich ja 128 K 
RAM. Für den "464" spricht die größere Ver- 
breitung, das zusätzliche Kassettenteil und das 
größere Softwareangebot. Bei einem Verkauf 
eigener Programme bin ich mit einem "464" 
sicherlich besser bedient. Wie sieht es aber mit 
dem Programmieren aus? Welches BASIC ist 
einfacher? Als Anfänger ohne Programmier- 
erfahrung bin ich auf einfach zu verstehende 
Bücher angewiesen. Mit welchem Computer 
fahre ich besser?" 

Hans-Christian Alt 

Altmarkstraße 16 a 

1000 Berlin 41 


Anmerkung der Redaktion: 

Nachdem es nun auch zun CPC 6128 mehr 
Software gibt empfehlen wir diesen Com- 
putertyp. 
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Amsoft 

Amsoft 

Amsoft 

Elite 

Artic Computing 
Ultimate 
Ultimate 
Alligata 

Silver Soft 
Mirrorsoft 

Big Fire Software 
Martech 
U.S.Gold 

Palace Software 
Mastertronic 
Mastertronlc 
Level 9 

Durell Software 
Amsoft 

Ocean 

Ocean 

Design Design 
Durell Software 
Durell Software 
Probe Software 
Hewson Consultants 
Gargoyle Games 
Mirrorsoft 
Mosalc 

Micro Gen 
'Digital Integr. 
Melbourne House 
Mastertronic 
Anirog 
Interceptor 
Mastertronic 
CRL 

Elite 

CRL 

Martech 

Ocean 
Activision 
Arlolasoft 
Durell Software 
Micro Gen 
Bubble Bus 
Vortex 

Software Projects 
Interceptor 

CRL 


Ultimate 
Mastertronic 
Melbourne House 
Beyond 

PSS 


- Software Projects 
Gargoyle Games 
Firebird 
Psion 
Psion 
Interceptor 
Dk’tronics 
Firebird 
Mastertronie 
Artic Computing 
Design Design 
Mastertronic 
Sagittarian 

Gremlin Graphics 


2\ 


I. CPC KASSETTEN SOFTWARE 


3-D Boxing 

3-D Grand-Prix 

3-D Stunt Rider 
Alrwulf 

Aladins Cave 

Allen 8 

Barra M.WC Boxing 
Blagger 

Bored of the Rings 
Boulder Dash 

Bounty Bob strikes back 
Brian Jacks Superstar 
Bruce Lee 464/664/6128 
Cauldron 464/664/6128 
Cares of Doom (Dt.) 
Chiller 

Colossal Adventure 
Combat Lynx 

Cyrus II Chess 

D, TH. Supertest 464/664/6128 
Daley Thompsons Decathlon 
Dark Star 

Death Pit 

Death Wake 

Devils Crown 
Dragontorc of Avalon 464/664 
Dun Darach 

Dynamite Dan 

Eric the Viking 
Eyeryone’s a Wally 
Fighter Pilot 

Fighting Warrior 
Finders Keepers (Dt.) 
Flight Path 737 

Forest at Worlds End 
Formula 1 Simulator 
Formula One 464/664 
Frank Bruno’s Boxing 
Genesis 464/664 

Geoff Capes Strongman 
Gilligans Gold 

Hacker 

Hard Hat Mack 

Harrier Attack 

Herberts Dummy Run 
HI Rise 464/664/6128 
Highway Encounter 464/664 
Jet Set Willy 

Jewels of Babylon 
Juggernaut 464/664 
Knight Lore 

Locomotion (Dt.) 


Lord of the Rings 464/664/6128 


Lords of Midnight 
Maccadam Bumper 
Manic Miner 

Marsport 

Master of the Lamps 
Match Day 464/664/6128 
Match Point 464/664/6128 
Message from Andromeda 
Minder 

Mr. Freeze 
Nonterraquous (Dt.) 
Obsidian 464/664/6128 
On the Run 


One Man a.h.Droid 464/664/6128 


Pinball Wizzard 
Project Future 


Neu 


Neu 
Neu 


Neu 


Neu 
Neu 


Wir sprengen 
alle Preise! 


Versand nur bei schriftlicher Bestellung und gegen Vorausscheck 


43,90 DM 
43,90 DM 
39,90 DM 
41,90 DM 
39,90 DM 
47,90 DM 
46,90 DM 
32,90 DM 
33,90 DM 
39,90 DM 
39,90 DM 
35,90 DM 
39,90 DM 
37,90 DM 

9,90 DM 

9,90 DM 
43,90 DM 
31,90 DM 
49,90 DM 
39,90 DM 
35,90 DM 


33,90 DM 


33,90 DM 
36,90 DM 
43,90 DM 
39,90 DM 
44,90 DM 
35,90 DM 
43,90 DM 
44,90 DM 
39,90 DM 
39,90 DM 

9,90 DM 
33,90 DM 
27,90 DM 

9,90 DM 
35,90 DM 
41,90 DM 
43,90 DM 
43,90 DM 
33,90 DM 
39,90 DM 
43,90 DM 
37,90 DM 
43,90 DM 
37,90 DM 
43,90 DM 
35,90 DM 
25,90 DM 
35,90 DM 
43,90 DM 

9,90 DM 
69,90 DM 
48,90 DM 
39,90 DM 
33,90 DM 


43,90 DM 


48,90 DM 
39,90 DM 
35,90 DM 
27,90 DM 
41,90 DM 
11,95 DM 

9,90 DM 
35,90 DM 
35,90 DM 

9,90 DM 
35,90 DM 
39,90 DM 


SOFTWARE-AGENTUR RITZLER 


ST. JOHANN - 8520 ERLANGEN 


TEL. 09131/47460 
MO.-FR. 17-20 UHR 


zuzüglich 5,- DM Versandkosten 


Lerel 9 Computing 
Adrenture Int. 
CRL 

Fighting Fantasy 
Lerel 9 

Firebird 

Anirog 
Mastertronic 
Taskset 


Hewson Consultants 


M.A.D. Games 
Mirrorsoft 
Beyond 
Melbourne House 
Virgin Games 
Firebird 
Gargoyle Games 
Interceptor Micros 
Melbourne House 
Melbourne House 
Melbourne House 
Ocean 

Ocean 

Vortex 

Firebird 
Interceptor Micros 
Alllgata 
U.S.Gold 
Electric Dreams 
Firebird 

Bubble Bus 

Artic Computing 
Imagine 

Imagine 
U.S.Gold 


Red Moon 

Robin of Sherwood 

Rocky Horror Show 

Seas of Blood 

Secret Diary...464/664/6128 
Short’s Fuse 

Siapshot 

Soul of a Robot (Dt.) 

Souls of Darkon 

Southern Belle 464/664/6128 
Spellbound 464/664/6128 
Spitfire 40 

Spy vs Spy 

Starion 

Strange Loop 

Sub-Sunk 

Sweevos World 

Tales of Arablan Nights 464/664 
Terrormolinos 

The Hobbit 

The Wax of the exploding Fist 
The never ending Story 

They sold a Million 

Tornado Low Lerel 

Triple Pack 464/664 

War Lord 

Who dares wins II 
Wintergames 

Wintersports 464/664/6128 
Wild Bunch 

Wizzards Lair 

World Cup 

World Series Baseball 

Yie are Kung Fu 464/664/6128 
Zorro 464/664/6128 


31,90 DM 
44,90 DM 
37,90 DM 
43,90 DM 
43,90 DM 
11,95 DM 
39,90 DM 

9,90 DM 
39,90 DM 
35,90 DM 
14,95 DM 
43,90 DM 
43,90 DM 
43,90 DM 
39,90 DM 
11,95 DM 
36,90 DM 
29,90 DM 
35,90 DM 
63,90 DM 
45,90 DM 
43,90 DM 
43,90 DM 
34,90 DM 
52,90 DM 
39,90 DM 
39,90 DM 
44,90 DM 
39,00 DM 
11,95 DM 
39,90 DM 
43,90 DM 
43,90 DM 
39,90 DM 
46,90 DM 


Il. CPC ANWENDERPROGRAMME 


Profisoft 
CRL Group 
Interceptor 
Profisoft 
Gilsoft 
Incentive 
Amsoft 
Profisoft 
Profisoft 


Strecker 

Strecker 

Profisoft 

Profisoft 

Profisoft 

Profisoft 
Microcomputerladen 
Bubble Bus 


[3 
3D-Plot 4 (Dt. Handbuch) 
Amstrad Artist 
Azlimuth Head Alignment Tape 
Backup 3 (Dt. Handbuch) 
Genesis 
Graphic Adv.Creator 464/664/6128 
Masterfile 464 
Minicad (Dt. Handbuch) 
Minicad/Miniplot (Dt. Handb.) 


Multidata (Dt. Handbuch) 
Multilink (Dt. Handbuch) 
Superpack 80 (Dt. Handbuch) 
Tascopy 464 (Dt. Handbuch) 
Tasprint 464 (Dt. Handbuch) 
Tasword 464 (Dt. Handbuch) 69,90 DM 
Teleterminal 300S m.RS232 I/F 178,90 DM 
Use it 41,90 DM 


29,90 DM 
43,90 DM 
35,90 DM 
29,90 DM 
43,90 DM 
89,00 DM 
109,90 DM 
69,90 DM 
75,90 DM 


89,90 DM 
49,90 DM 
128,90 DM 
39,90 DM 
39,90 DM 


Schneider 


SOFTWARE-AGENTUR RITZLER DAS STARKE 
ST. JOHANN - 8520 ERLANGEN ANGEBOT E 
® 


TEL. 09131/47460 
. MO.-FR. 17-20 UHR 


Versand nur bei schriftlicher Bestellung und gegen Vorausscheck 
zuzüglich 5,- DM Versandkosten 


Il. CPC DISKETTEN SOFTWARE 


Amsoft 3 D Grand Prix 60,90 DM 
Amsoft 3 D Stunt Rider 60,90 DM 
Domark A View to a kill 464/664 75,90 DM 
Elite Alrwolf 60,90 DM 
Melbourne House Bored of the Rings 52,90 DM 
U.S.Gold Bruce Lee 464/664/6128 65,90 DM 
Domark Code Name Mat II 60,90 DM 
Amsoft Cyrus 2 Chess 59,90 DM 
Probe Software Devils Crown 60,90 DM 
Gargoyle Games Dun Darach 60,90 DM 
Digital Integr. Fighter Pilot 60,90 DM 
Elite Frank Brunos Boxing 60,90 DM 
Beyond Lords of Midnight 60,90 DM 
Database Software Red Arrows 60,90 DM 
Anirog Slapshot 60,90 DM 
Virgin Games Sorcery + 60,90 DM 
CDS Software Steve Davis Snooker 60,90 DM 
Amsoft The Scout steps out 464/664 59,90 DM 
Ocean They sold a Million 59,90 DM 
Firebird Triple Pack 664/6128 59,90 DM 
Bubble Bus Wizzards Lair 464/664 56,90 DM 


IV CPC DISKETTEN-ANWENDERPROGRAMME 


Profisoft 3D-Plot 4 (Dt.;3"Disk;664/6128) 41,90 DM 

Byte Me Adressverwaltung Neu 128,00 DM 

Byte Me Auftrag,Best.Lager,Stat. Neu 898,00 DM 

Profisoft Backup 3 (Dt.;3"Disk;664/6128 41,90 DM 

Hisoft CP/M C-Compller 159,90 DM HARDWARE-NEUHEITEN 

Hisoft CP/M Pascal Compiler 159,90 DM R Si 4 

Byte Me FIBU 398.00 DM SPEICHER-ERWEITERUNGEN für des CPC 464 

Incentive Graphic Adv.Creator 464/664/6128 99,00 DM = dk’tronics 64KB Speichermodul DM 198,- 
Amsoft Masterfile 464 (3" Diskette) 132,90 DM - dk'tronics 256KB Speichermodul DM 398,- 
Profisoft Minicad (3"Disk;Dt.;664/6128) 75,90 DM . i 

Profisoft Minldat/Miniplot (3",664/6128) 86,90 DM = BAM-FLOFFYSILICONS DISK Dir des CRC AEN/66Y/E129 

Strecker Multidata (Dt.; 5 1/4" Disk) 99,90 DM = dk'tronics 256KB RAM-FLOPPY 464/664 DM 398,- 
Strecker Multidata (Dt.Handbuch;3" Disk) 99,90 DM = dk’tronics 256KB RAM-FLOPPY 6128 DM 398,- 
Profisoft Superpack 80 (Dt.; 3";664/6128) 141,90 DM 

Profisoft Tascopy 464 (Dt.; 3" Disk) 69,90 DM = Grafiktablett GRAFPAD II für den CPC 464/664/6128 
Profisoft Tascopy 464 (Dt.; 5 1/4" Disk) 69,90 DM = ROM-KARTE DM 158,- 
Profisoft Tasprint 464 (Dt.; 3" Disk)99 69,90 DM 

Profisoft Tasprint 464 (Dt.; 5 1/4" Disk) 69,90 DM 

Profisoft Tasword -D, Tasprint, Tascopy (3") 149,90 DM SOFTWARE im ROM 

Profisoft Tasword 464-D (Dt.; 3" Disk) 99,90 DM 

Profisoft Tasword 464-D (Dt.; 5 1/4" Disk) 99,90 DM 3 DISK USER UT INS Den 
Profisoft Tasword 6128 (Dt.; 3"; 6128) 99,90 DM I ARSTDISASSEMBLER/MASCHINENMONITOR DM ı58.- 
Byte Me Vereinsverwaltung 248,00DM . = TEXTPROGAMM DM 158,- 


>; DM 158,- 
V.CPC 464 Hardware DATENBANK 


Advanced Memory AMX Mouse 298,00 DM HEADLINE 464 198,- DM 


Electric Studio Light Pen 89,00 DM Iatrix 
DK-Tronics Light Pen 99,00 DM O Briefbögen 
DK-Tronics Sprach-Synthesizer 159,00 DM 


DM 278,- 


© Ettiketten 

O BARCODES 

O Tabellen ' 

O Werbung 

O Preisschilder 

O'Flugblätter 

O Rundschreiben 
ee 


n 

O Varlable Zeichengröße 

(bis zu 20 ...30 cm) 
O varlable Zeichea-Breite/Höhe 
O Kursivstellung 
O Proportionalsatz 
O Inversdarstellung 
© Outline 
O Shadow 
O beliebige Raster und Muster 
O Diagramme/Abbildungen 
O Fonts: über 500 neue Zeichen 
O selbst definierbare Zeichen 
O hochauflösende Matrix:240x240 
O Dot,mm,lach, Pkt Festlegung 

auf Diskette mit dt. Anleitung 


”, 


SINTIAV 


F. W. BERICHTET 


Aus F.W.’s Schatzkiste 
der Erfahrung 


An dieser Stelle öffnet wieder der Oberhirni 
F.W.von SCHNEIDER-aktiv das geistige 
Schatzkästlein seines kümmerlichen Dasein: 
Ungefragt gibt er seinen Senf auf alle Briefe, 
die SCHNEIDER-aktiv hoffentlich nie be- 
kommen wird. 


Florian Specht fragt: 

"Im vergangenen Jahr habe ich von Ober förster 
auf Gärtner umgeschult und gleich darauf ei- 
nen eigenen Betrieb aufgemacht. Da Computer 
auf die junge Generation und auch auf mich so 
faszinierend wirken, würde ich es in meiner 
Gärtnerei gerne mal damit versuchen. Was 
meinen Sie, stünde mein Geschäft damit auf 
gesunden Füßen ?" 


F.W. von SCHNEIDER-aktiv antwortet: 
"Klar Mann! Das wär vielleicht ein Hammer 
wenn Sie Computer züchten könnten. Aber mal 
ehrlich, daß ist doch eine Schnapsidee. Selbst 
wenn Sie den CPC vergraben und regelmäßig 
gießen, es wird nichts daraus werden.” 


Johannes Simmehl aus Monaco fragt: 
"Hauptberuflich bin ich Schriftsteller, aber 
weil man davon nicht gut Leben kann, bin ich 
im Nebenberuf Lebemann. Für meine Romane 
habe ich mir extra den SCHNEIDER CPC 464 
ge-kauft, in der Hoffnung darauf das 
Textpro-gramm ’Wordstar' verwenden zu 
können. Zu meinem Bedauern mußte ich 
feststellen, daß ich außer dem Preis für das 
Programm auch noch eine Erweiterung hätte 
kaufen sollen. Das ist mir zu teuer. Bitte 
empfehlen Sie mir ein billigeres 
Textverarbeitungsprogramm. Besten Dank im 
Voraus.” 


F.W._von SCHNEIDER-aktiv antwortet: 
"Bleistift und Radiergummi.” 


Prof. Hackewahl fragt: 

"In der Ausgabe 12/85 von SCHNEIDER 
AKTIV fand ich das Listing "Wie alt werde 
ich", ein Thema, daß mir am Herzen liegt, bin 


ich doch Chirurg. Das Listing habe ich also 
nun mit Müh und Not in den CPC getippt in 
dem sonst unser Krankenhausverwaltungspro- 
gramm läuft. Das Programm lief schon im 
ersten Anlauf fehlerfrei, jedoch bekam ich als 
Antwort "Ihr voraussichtliches Alter beträgt 48 
Jahre". Da stimmt wohl einiges nicht mit der 
Berechnung, immerhin bin ich ja älter gewor- 
den." 


F.W. von SCHNEIDER aktiv antwortet: 
"Das Listing ist fehlerfrei, mit Ihnen stimmt 
was nicht. Aber keine Bange, mit beiliegendem 
Pülverchen können Sie das Problem lösen. Ein- 
fach in Wasser auflösen und trinken.” 
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MIR HABEN DIE PROFI-BOFTWARE! 
WIR HABEN DIE ADVENTURES" 
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DANK an ALLE 


Wir danken allen unseren Lesern, den CPC-User Clubs und vor allem unseren freien 
Mitarbeitern, die am Entstehen dieser 7. Ausgabe von SCHNEIDER-aktiv mitgearbeitet 
haben. 
Wir bitten alle Leser dieser Zeitschrift nicht nachzulassen und AKTIV zu bleiben. 
Bitte schickt uns weiterhin: 


- LISTINGS (auch gute größere Programme können wir in Verbindung mit unserem 
SOFT-BOX-Service veröffentlichen) 


- Erfahrungsberichte über CPC Hardware und CPC Software 
- Kritiken und Lob über alles was sich auf dem CPC Sektor tut 


- Vorschläge wie SCHNEIDER-aktiv noch besser werden kann 


Schreibt auch wo und von wem Ihr gut oder schlecht bedient worden seid und bei welcher 
Hard- und Software Ihr glaubt Euer Geld zum Fenster hinausgeschmissen zu haben bezw. 
welche Hard-und Software Ihr empfehlen könnt. Schreibt auch Euere Probleme mit 

Reparaturen und Service. 


Nochmals Dank und seid nicht böse wenn Euer eingesandter Beitrag aus redaktionellen 
Gründen noch nicht in dieser Ausgabe zu finden ist - wir bringen ihn in den nächsten 
Ausgaben 
Euer 
SCHNEIDER-aktiv-Team 


Postfach 1201 
8540 Schwabach 


Nicht vergessen ... 


... SCHNEIDER-aktiv erscheint immer 


am letzten Mittwoch im Monat 


CPC 464/664/6128 
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EXTENDED BASIC 


36 NEUE RSX-BEFEHLE 


EXTENDED BASIC stellt Euch 36 neue Be- 
fehle zur Verfügung, welche Ihr nach Belie- 
ben in Euere Programme einbinden könnt. 
EXTENDED BASIC wird entweder mit 
Memory 39999:RUN "EXBAS" (zur Verwen- 
dung im Direktmodus) gestartet oder in 
BASIC-Programmen mit 10 MEMORY 39999: 
LOAD "EXBAS.BIN": CALL&9CA4D eingebaut. 
Das Hochziehen auf Diskette erfolgt mit: 
LOAD"EXBAS.BIN" SAVE "EXBAS",B,40000, 
2620,40000 


BEFEHLSERLÄUTERUNG: 


ISCHRIFT, X- und Y-Koordinate, @ String- 
Variable, Höhe, Breite, Ink 


X- und Y-Koordinate geben die Position auf dem 
Grafikbildschirm an (wie bei Plot). Eine String- 
Variable muß vorher definiert sein, sonst erfolgt eine 
Fehlermeldung. Auch der Klammeraffe @ muß unbe- 
dingt vor die Variable gesetzt werden. Die Angaben 
bei Höhe und Breite geben die Vervielfachung der 
Matrixpunkte an ( O ist nicht möglich). Höhe und 
Breite beziehen sich immer auf 8 Matrixpunkte (wie 
im Mode 2).Der kleinste Parameter für die Breite ist 
im Mode 2 eine 1, - im Mode 1 eine 2 - und im 
Mode 0 eine 4. Werden diese Mindestbreiten nicht 
eingehalten, so werden die darzustellenden Zeichen 
verfälscht. Ink gibt die Farbe an, in der der String 
ausgegeben werden soll und ist modeabhängig. Es 
sind auch selbstdefinierte Zeichen möglich, jedoch 
sind nur die Charakter von 240 bis 255 zugelassen. 
Ein SYMBOL AFTER ist nicht mehr möglich. 


BEISPIEL: 


Mode 2:a$="F":|SCHRIFT,0, 399,@a$, 25, 80,1 oder 
Mode 2:a$="Hallo": |SCHRIFT, 200,300, @A$,5,5,1 


|ILEFT,WINDOW-NR. 


CPC 464/664/6128 


EXTENDED BASIC 
36 NEUE RSX-BEFEHLE 


Scrollt das angegebene Window nach links. Ist das 
Window noch nicht definiert, wird der komplete 
Bildschirm gescrollt. Wurde der komplette Bild- 
schirm mit PRINT o.ä. Befehlen nach oben oder 
unten gescrollt - und somit das Offset verändert - 
kehrt die Routine ohne Fehlermeldung zurück. 


Für die Berechnung der FOR-NEXT-SCHLEIFE 
gilt die Formel: 


ANZAHL DER ZEICHEN IN EINER ZEILE IM 
WINDOW * MODE-OFFSET 
Der Mode-Offset beträgt im 


Mode 2 =1 
Model=2 
Mode0 =4 
BEISPIEL: 


Mode 2:PRINT STRING$(160,"A"): WINDOW#L1, 
80,1,2:FOR I=1 TO 80:|LEFT,1: NEXT oder 


Mode 1:PRINT STRING$(80,"B"):WINDOW#2,10, 
20,1,2:FOR I=1 TO 20:|LEFT,2:NEXT oder 


Mode 0:PRINT STRING$(40,"C"):WINDOW#3,5, 
15,1,2: FOR I=1 TO 40:|Left,3: NEXT 


|RIGHT,WINDOW-NR. 


Analog zu |Left, WINDOW-Nr. nur nach rechts. 


|LEFTR,WINDOW-NR. 


Rollt das angegebene Window nach links, d.h. die 
Zeichen, die auf der linken Seite herausfallen kom- 
men rechts wieder herein. Sonst analog zu |LEFT, 
WINDOW-NR. 


BEISPIEL: 
Mode 2:FOR I=1 TO 24:PRINT STRING$ (79,"W") 


;„NEXT:WINDOW#1,1,80,1,10:FOR I=1 TO 80: 
|LEFTR,1:NEXT 


|RIGHTR,WINDOW-NR. 


Wie |LEFTR,WINDOW-NR., aber nach rechts. 


IINVERSE 


Schaltet auf inverse Darstellung. Alle nachfolgenden 
Zeichen werden invers dargestellt. Nochmaliger Auf- 


ruf schaltet auf Normalmodus zurück. 


ICHRINV,SPALTE,ZEILE,INK,INK 


Invertiert ein Zeichen auf der angegebenen Position 
mit den Ink-Farben.Die Farben sind modeabhängig. 


BEISPIEL: 


Mode 1:?”"TEXT INVERTIEREN MIT 
|CHRINV":FOR I=1 TO 40: 

|CHRINV ‚1,1,2,0:NEXT:|PAUSE,100:FOR I=1 TO 
40: 

ICHRINV ‚1,1,2,0:NEXT 


|READ, SPALTE, ZEILE, 
@STRING-VARIABLE 


Liest ein Zeichen auf der angegebenen Position und 
legt es in der STRING-Variable ab. Die String-Va- 
riable muß vorher definiert sein (a$="" oder eine 
Feld-Variable wählen, dann entfällt die Vorabde- 
finition). 


BEISPIEL: 


LOCATE 1,1:PRINT"HALLO":FOR I=1 TO 
5:READ,L1,@A$(O):PRINT A$(0);:b$=b$+ 
a$(0):NEXT:PRINT:PRINT: b$ 


IPAUSE,WERT 


Hält das Programm um etwa WERT * 1/50 Sekunde 
an. Ein Wert von 50 ergibt somit eine Pausenschleife 
von etwa einer Sekunde, ein Wert von 100 zwei 
Sekunden usw. 

Eine Sonderstellung nimmt Pause,O ein, denn hier 
wartet das Programm auf einen Tastendruck. 

Die Pausenschleife kann nicht mit einem BREAK 
unterbrochen werden. 

|PAUSE,O übergibt das letzte Zeichen in den Tas- 
taturpuffer und es kann mit INKEY$ ausgelesen 
wer-den. 


BEISPIEL: 


N 
£ 
oO 
je 
fen 
) 
w 
a. 
ko 
nm 
x 


SIETITIITST 


EXTENDED BASIC 
36 NEUE RSX-BEFEHLE 


Y 


NL 


E |PAUSE,0:A$=INKEY$:PRINT A$ IONSCREEN, ADRESSE 

ICKEY Bringt die mit |PRESS komprimierten Bilder auf 
den Bildschirm. Wenn kein Bild vorhanden ist, er- 

Löscht den Tastaturpuffer folgt Fehlermeldung IMPROPER ARGUMENT. 

Wird |ONSCREEN ohne Adresse aufgerufen, nimmt 

BEISPIEL: das Programm den Wert 25000 (Anfang d.|PRESS- 
Speichers) an.In Verbindung mit |BLOCK können 

10 |PAUSE,0:INPUT"TEST";A$ komprimierte Bilder im Speicher verschoben werden 

besser ist10 |PAUSE,0:|CKE :INPUT"TEST";A$ und diese mit |ONSCREEN,ADRESSE auf die Bild- 


schirmbank 1 zurückgeholt werden. 


ISCREEN,@STRING-VARIABLE 


BEISPIEL: 
Speichert den Bildschirm (16384 Bytes) mit dem 
Namen der STRING-VARIABLEN ab. Die MODE 2:FOR I=1 TO 2000:PRINT "wr: 
STRING-VARIABLE muß vorher definiert worden :NEXT:|PRESS:CLS:|ONSCREEN:CLS:A%=0: 
sein, sonst erfolgt eine Fehlermeldung. |LAENGE,@%:|BLOCK,25000,10000,A%: 


|ONSCREEN,10000 
BEISPIEL: A$="TEST.SCR":|SCREEN,@A$ 


BEISPIEL: 
|SPRESS,@STRING-VARIABLE 


MODE 2:FOR I=1 TO 2000:PRINT"Q"; :NEXT: 


Speichert den mit |PRESS komprimierten Bild- |PRESS:A$="TEST SCR":|SPRESS,@A$:CLS 
schirm ab. Es muß vorher komprimiert worden sein, LOAD"TEST.SCR",10000:|ONSCREEN,10000 

sonst erfolgt eine Fehlermeldung. Sonst Analog zu Mit |DEEK,ADRESSE+1,@A% kann die Länge der 
|SCREEN. verschobenen Bilder bestimmt werden (z.B. 2:3% 


=0:|DEEK,10001,@3%:?a%) 
|PRESS 


Komprimiert den Bildschirm und speichert die Bytes 
ab Adresse 25000 ab.Da EXTENDED-BASIC ab 


40000 steht, speichert EXTENDED-BASIC den Schaltet die Graphikdarstellung auf XOR- 
Darstellung um 


IXOR 


Bildschirm normal (16384 Bytes) unter dem Namen 
SAFE.SCR ab, wenn der reservierte Speicherplatz 
(25000-39999) nicht ausreicht. Beim Arbeiten mit BEISPIEL: 

|PRESS sollte MEMORY auf 24999 gesetzt werden. TAG:IXOR:MOVE 0,400:?"W";:TAGOFF Erneuter 
Außerdem darf nicht die Bildschirmbank 0 auf- Aufruf löscht den Buchstaben wieder 

gerufen werden, da diese parallel zum benötigten oder: 

|PRESS-Speicher liegt und ein Beschreiben des IXOR:MOVE 0,200:DRAWR 640,0 

Bildschirmes (in der Bank 0) das komprimierte Bild Erneuter Aufruf löscht die Linie wieder. 


zerstören würde. 


AND 


|ILÄNGE,@INTEGER-VARIABLE 
Schaltet die Graphikdarstellungg auf AND- 


übergibt an die vorher definierte INTEGER-VARI- Darstellung 

ABLE die Anzahl der Bytes, auf die das Bild 

komprimiert wurde. |OR 

BEISPIEL: Schaltet die Graphikdarstellung auf OR-Darstellung 
ISTANDARD 


£ 
Q 
ee 
- 
08 
er 
RL 
el 
@ 
= 


A%=0:|PRESS:]LÄNGE,@A%:?A% 
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EXTENDED BASIC 
36 NEUE RSX-BEFEHLE 


Schaltet die Graphikdarstellung wieder auf 
Normaldarstellung 


ICOPY,X-ANFANG,X-ENDE,Y-ANFANG, 
Y-ENDE,X-PUNKT,Y-PUNKT 


X-ANFANG und X-ENDE definieren die Länge des 
Fensters auf der X-Achse. 

Y-ANFANG und Y-ENDE definieren die Länge des 
Fensters auf der Y-Achse 

X-PUNKT und Y-Punkt bestimmen den linken 
oberen Punkt,an den das definierte Fenster (das 
Ursprungsbild) kopiert wird. 


BEISPIEL: 
|Copy,0,200,200,399,0,200 


IMOVE,X-ANFANG,X-ENDE,Y-ANFANG, 
Y-ENDE,X-PUNKT,Y-PUNKT 


Funktion und Syntax wie unter |COPY beschrieben, 
aber zusätzlich wird das Ursprungsbild gelöscht. 


IMIRRORC,X-ANFANG,X-ENDE, 
Y-ANFANG,Y-ENDE,X-PUNKT,Y-PUNKT 


Kopiert das Ursprungsbild seitenverkehrt (ge- 
spiegelt): Der X-Punkt gibt aber die rechte Ecke des 
gespiegelten Bildes an. Ansonsten analog zu |COPY 


IMIRRORM,X- ANFANG,X-ENDE, 
Y-ANFANG,Y-ENDE,X-PUNKT, Y-PUNKT 


Wie |MIRRORC, aber wird das Ursprungsbild 
gelöscht. 


IBOTTOMC,X-ANFANG,X-ENDE, 
Y-ANFANG,Y-ENDE,X-PUNKT,Y-PUNKT 


Kopiert das Ursprungsbild auf dem Kopf stehend. 
Der Y-Punkt gibt aber de untere Ecke des 
gespiegelten Bildes an 


|BOTTOMM,X-ANFANG,X-ENDE, 
Y-ANFANG,Y-ENDE,X-PUNKT,Y-PUNKT 


Wie unter |BOTTOMC, aber das Ursprungsbild wird 
gelöscht. 


akti 


ISPEED,PARAMETER 


Setzt die Aufzeichnungsgeschwindigkeit des Kasset- 
tenrekorders herauf.Erlaubt sind die Para-meter 2 
oder 3.Parameter 2 entspricht einer Aufzeichnungs- 
geschwindigkeit von 3000 Baud. Parameter 3 ent- 


spricht einer Aufzeichnungsgeschwindigkeit von 
3600 Baud. 


|DOKE,ADRESSE,WERT 


Schreibt an die Adresse das LOW-Byte des Wertes 
und an Adresse+1 das HI-Byte des Wertes.Es sind 
auch Integer-Variable gestattet, wenn sie vorher 
definiert wurden. 


BEISPIEL: 


|DOKE,20000,15000 
oder a%=30000:b%=65535:|DOKE,a%,b% 


|IDEEK,ADRESSE,@INTEGER-VARIABLE 


Die Umkehrung von |DOKE. Es wird aus Adresse 
das LOW-Byte und ADRESSE+1 das HI-Byte aus- 
gelesen und das Ergebnis an die vorher definierte 
Integer-Variable übergeben. Bitte verwenden sie 
ausschließlich Variablen vom Typ Integer. 


BEISPIEL: 


C%=0:|DEEK,30000,@c%oderc%=0:4%=30000:|DE 

EK,d%,@c%:PRINT c% 

Werte über 32767 werden als Minuszahlen 
ausgegeben.Es muß hierbei der Wert 65536 addiert 


werden, um das richtige Ergebnis zu erhalten. 


|BOX,1.X-PUNKT,1.Y-PUNKT,2.X- 
PUNKT,2.Y-PUNKT,INK 


Die Koordinaten des ersten Punktes geben die linke 
obere Ecke des Viereckes an, die Koordinaten des 
zweiten, die der rechten unteren Ecke. Die INK ist 


modeabhängig 
BEISPIEL: 


|BOX,100,100,200,200,1 


W 
£ 
oO 
££ 
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I 
n 
a. 
I 
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50 TIPS & TRICKS 


36 NEUE RSX-BEFEHLE 


ITRI,1.X-PUNKT,1.Y-PUNKT, 
2.X-PUNKT,2.Y-PUNKT,3.X-PUNKT, 
3.Y-PUNKT,INK 


Die Koordinaten der drei Punkte geben die Punkte 
A,B und C des Dreiecks an. Die INK ist modes- 
abhängig 


BEISPIEL: 


|TRI,100,100,500,100,300,399,1 


|CURON 


Schaltet den Cursor ein 
BEISPIEL: 


10 MODE 2:LOCATE 1,12:|CURON 20 FOR I=2 
TO 80:|CUROFF:LOCATE 1,12:|CURON: |FRAME: 
NEXT 


|ICUROFF 


Schaltet den Cursor ab 


|FRAME 


Entspricht CALL &BD19 = Firmware Wait FLY- 
BACK.Pixelweise Bewegungen auf dem Bildschirm 


werden etwas flüssiger. 


|IBLOCK,QUELLE,ZIEL,LÄNGE 


Verschiebt einen Speicherbereich von der Adresse 
Quelle zur Adresse ZIEL. LÄNGE gibt die Anzahl 
der Bytes an, die verschoben werden sollen. Es sind 


wiederum vordefinierte Integer-Variablen möglich. 


ACHTUNG !!! 


BENUTZEN SIE DIESEN BEFEHL MIT 
BEDACHT,DENN SIE KÖNNEN SICH 
OHNE WEITERES IHREN BASIC- 
SPEICHER UND DAMIT IHR PRO- 
GRAMM ODER ANDERE WICHTIGE 
SYSTEMADRESSEN ÜBERSCHREIBEN 


BEISPIEL: 


Es soll der Bildschirm (Anzahl der Bytes &4000) 
von &C000 nach &4000 verschoben werden. Schrei- 
ben Sie bitte einige Zeichen auf den Bildschirm. 


|BLOCK,&C000.&4000,&4000:CLS:|BLOCK,&4000, 
&C000,8&4000 

Natürlich können auch alle anderen Adressen 
innerhalb des Speichers (außer ROM) angesprochen 
und verschoben werden. So wird die Blockver- 
schiebung im DEMO-Programm innerhalb des Bild- 
schirmspeichers verwendet und ein schnelles 
Kopieren ermöglicht. 


IBANK,NUMMER 


Es stehen zwei Bildschirmbänke zur Verfügung. Als 
Parameter sind 0 oder 1 erlaubt. Bank 0 liegt von 
&4000 bis &8000 =16384 bis 32768 

Bank 1 liegt von &C000 bis &FFFF =49152 bis 
65535 Wird dieser Befehl in einem Programm ge- 
nutzt, sollte HIMEM vorsichtshalber auf &3FFF ge- 
setzt werden, um einem Überschreiben vorzubeu- 
gen. Auch sollte der Befehl |BANK,0 nicht in Ver- 
bindung mit |PRESS genutzt werden, da es hin- 
sichtlich des Speicherbereichs zu Überschreibungen 
kommt. 


BEISPIEL: 


5 REM BEI JEDEM TASTENDRUCK WIRD DIE 
BANK GEWECHSELT 

10 MODE 2:?"BANK 1 "TAB(20)"&C000-&FFFF: 
|BANK,0:CLS:?"BANK 0 "TAB(20)"&4000-7FFF" 
20 |BANK,1 :|CKEY:|PAUSE,0:|BANK,0: |CKEY: 
|PAUSE,0:GOTO 20 


IDUMP 


VARIABLEN-DUMP 
gibt auf Tastendruck die Werte aller Integer-, Real- 


und String-Variablen aus, wie sie nacheinander im 


Variablenspeicher stehen. Enter unterbricht die 
Ausgabe (Kornelius Becher). 
ee 57557, , 4, 73,77 7737097404 70, U, U DAFT 


| _CPC 46456646128 Schneider Schneider 
a 
_ [SIz\Ij Schneider 


NUR NICHT DEN ÜBERBLICK VERLIEREN ... 


Wir haben uns überlegt, welchen Service wir Euch bieten kön- 
nen. Mit unserer Fachzeitschrift überhäufen wir Euch mit Tips, 
Tricks, Hinweisen, Anregungen, Listings und Programmen. Ihr 
werdet des öfteren bereits gesagt haben, wie sollen wir dies nur 
alles behalten, beziehungsweise einen Artikel oder ein Listing aus 
einer früheren Ausgabe wiederfinden. Wir drucken in diesem 
Heft, ein Programm, welches Euch in die Lage versetzt, nicht 
nur ein laufend auf dem neuesten Stand befindliches Gesamtin- 
haltsverzeichnis vom Bildschirm abzurufen, sondern auch - was 
besonders hilfreich ist - nach einem bestimmten Stichwort zu 
suchen. Ihr könnt Euch sowohl das Gesamtinhaltsverzeichnis, 
als auch entsprechende Stichwortkarteien ausdrucken lassen 
(siehe Muster). 


Das Programm ist so angelegt, daß es auf allen CPC-Computern 
(464, 664, 6128) läuft. (Claus Bernhold) 
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Inmnhal t =-CHNEIDER-altk t iv 


Stand: 12-535 


Nr. Stichwort &üuelle Inhalt Bemerkungen 
1 Hardware 12765 Hinweis auf 4512 professional Produktinfo 
2 Hardware 12/85 Roboter steuern Selbstbauanleitung 
3 Anwendung 12785 Druckertreiber NL@ 401 ersetzen von ?1X und >X 
4 Schule und Compute 12/85 Serie * 
5 Allgemeines 12/85 Kopierschutz Grundsatzgedanken 
6 Hardware 12785 CPC 6128 Einfuehrung in Europa 
7 Erfahrungsbericht 12/85 Phase 4 
8 Vortex 12/65 Hinveis auf Vortex-User-Group * 
9 Allgemeines 14785 Messebericht Systens ’&5 
10 Spiel 12/65 Fighter-pilot Test 
11 Tips $ Tricks 12/65 Aufhebung Listschutz « 
12 Tips & Tricks 12/85 Schuetzen eines Programms ait Hilfe Codename 
13 Anwendung 12/85 Kreditvergleich Listing 
14 Anwendung 12/85 Altersprognose Listing 
15 Spiel 12/85 Forest at the vorlds end Loesung 
16 Anwendung 12/65 ssettenkatalog Ausdruck Cassetteninhalt 
17 Grundlagen 12/85 Computer in der Astrononie Hinweis auf Programa 
18 Erfahrungsbericht 12/85 HiSoft Pascal * 
19 Spiel 127/85 Maniac Miner Test 
2) Anwendung 12/8 Basic Erweiterung neue RSX Befehle 
21 Software 12/85 Adressen zu Schneider aktiv I1/E5 Ergaenzung 
22 Anwendung 12/65 Transferprogramm Cas-Disc Berichtigung zu aktiv 11/85 $.45 
23 Anwendung 12/65 Header Reader fuer Cassette 
24 Anwendung 12/85 LHM Tabellenkalk. & Grafik Testbericht 
25 Anwendung 12/85 DICS Kopieren Cas—)Disc * Listing 
26 Allgemeines 12/85 Computernarkt Kaufempfehlung 
27 Tips & Tricks 1/85 Vortex-Speichererweiterung Tips zur Selbstbestueckung 
28 Anwendung 12/85 Hexnonitor Speicherauszuege usw. Listing 
29 Spiel 12785 Sorcery Spielbeschreibung 


CPC 464/664/6128 


INHALIL 


aktı 


O1 Oo 
l j 
I I 
O ı © 
| Inhaltsauswahl ZCHNEIDER-aktiv I 
1 I 
O ı LO) 
ı j 
I Gesucht wurde nach ? Anwendungs » > > | 
O ı ı O 
I Nr. Stichwort Muelle Inhalt Bemerkungen \ 
N j 
(©) | 1 Anwendung 12/65 Druckertreiber M.Q 401 ersetzen von >1X und >X I OÖ 
j 2 Anwendung 12/85 Kreditvergleich Listing I 
'®) | 3 Anwendung 12785 Altersprognose Listing | ®) 
N 4 Anwendung 12/85 Cassettenkatalog Ausdruck Cassetteninhalt | 
N 5 Anwendung 12/85 Basic Erweiterung neue RSX Befehle ] 
OÖ | & Anwendung 12/85 Transferprograsm Cas-Disc Berichtigung zu aktiv 11/85 $.45 | (®) 
f 7 Anwendung 12/85 Header Reader fuer Cassette | 
& Anwendung 12/85 LKM Tabellenkalk. & Grafik Testbericht ı 
(®) 9 Anwendung 12/65 DICS Kopieren Cas—)Disc * Listing ' Ö 
| 10 Anwendung 12/85 Hexaonitor Speicherauszuege usw. Listing 
j 
(Oi rn he ge nn ee er 
Inhaltsauswahl SCHNEIDER—- aktiv 
I 
©) I I ®) 
| I 
I Besucht wurde nach ? Spiel; » > » I 
O I | (©) 
| Nr. Stichwort Guelle Inhalt Bemerkungen j 
O'! O 
| 1 Spiel 12/85 Fighter-pilot Test | 
2 Spiel 12/65 Forest at the vorlds end Loesung | “ 
6) I 3 Spiel 12/85 Maniac Miner Test 6) 
| 4 Spiel 12785 Sorcery Spielbeschreibung | 
| I 
(®) | | ®) 
Inhal tsauswahl SCHNEIDER-aktiw | 
O1! Oo 
| I 
| | 
(5 (®) ' Gesucht wurde nach : Hardware; >» > > OÖ 
r 6) I Nr. Stichwort Kiuelle Inhalt Bemerkungen | 6) 
I 
ul | 1 Hardware 127/85 Hinweis auf 4512 professional Produktinfo | 
= | 2 Hardware 12/65 Roboter steuern Selbstbauanleitung | 
7) OÖ | 3 Hardware 125° CPC 6128 Einfuehrung in Europa | OÖ 
| I - En E S n | 
j ® | Inhaltsauswahl SCHNEIDER-akt iv ®) 
I j 
O ı 1) 
| Gesucht wurde nach : Test; > > >» ' 
®) | Nr. Stichwort GSwelle Inhalt Bemerkungen | OÖ 1 
N N I 
| 1 Spiel 12/85 Fighter-pilot Test i 6) 
un ®) t 2 Spiel 12/85 Maniac Miner Test ® 


3 Anwendung 12785 LHM Tabellenkalk. & Grafik Testbericht 


10 et teetoyasteparkapespisheohe 
20 ”* Inhaltsverzeichnis * 
30 ’* En 
40 : fuer 
50 
“OO "# SCHNEIDER - aktiv 
70’ 
20 ’* 1936 : 
JO Fotatitetehtototittotitokstankotinehhinh 
100° 
110 
120 MODE Z:u4$=CHR$ (24):DIM 4$(510,4) 
130 WINDOW #2, 1,79, 25,25 
140 WINDOW #0,1,50,1>,24 
150 FRINT w$" Liebe SCHNEIDER — Freunde » "w$&3PRINT:FRINT"mit diesem Progra 
mm haben Sie stets Jie neueste Inhaltsuebersicht von":PRINT:PRINT" 
SCHNEIDER — aktiv"sFRINTSFRINT"und zwar fuer all e bisher ersch 
ienenen Hefte zur Hand !" 
160 FRINT:PRINT"Sie koennen sich das Verzeichnis zwar selbst anlegen, be 
quemer ist aber":FRINT:FRINT"unser Service: Mit jeder Cassette aus unsere 
m SOFT-BOX Prögramm erhalten" :FRINT 
170 FRINT"Sie Jas jeweils aktuelle Inhaltsverzeichnis als Datei fuer Jieses 
Programm": FRINT:FRINT=SFRINT"Mit freundlichen Gruessen"PRINT:PRINT" 
"s$" Ihr SCHNEIDER-aktiv Team "w$:50SUB 3020 
130 FRINT#Z; " "sb SCHNEIDER aktiv #* mmabhaengig * kritisch * aktuell * 
praxisnah + "u$ 
190 CLS:FRINT w$" Bei Betrieb mit Diskettenlaufwerk, jetzt Diskette einlege 
mn !'"w$:G0SUB 3020 
z00 ÖPENSUT "Dummy": MEMORY HIMEM-1:CLIOSEINUT 
210 CLS:PRINT:FRINT:FRINT " Wollen Sie Daten von Lassette bzw. Disk einlese 
n ?"=FRINT:SFRINT:FRINT " Bitte si /ıan waehlen" 
Z20 x$=INKEY$:IF x$="" THEN 220 
230 IF x$="j" THEN 2300 
240 CLS®PRINT "Die folgenden Angaben werden als Dateiname zur Speicherung b 
enutzt."SPRINTSFRINT"Beachten Sie, Jass Sie bei Diskettenbetrieb nur Eingab 
en machen, Jie nicht" 
250 FRINT:PRINT"laenger als 5 Zeichen sind und keine Leer- und Satzzeichen 
(> .) beinhalten":FRINT:FRINT"Zweckmaessig ist z.B. die Angabe > 3-56 X a 
ls Hinweis auf den Bearbeitungsstand" 
260 FRINT=:FRINT:FRINT: INPUT "Dateiname soll lauten ---> "sdts 
270 I=1:5J)T0 1710 
250 
290 REM »#taststok menue 1 auswahl 
\300 > 
1310 suz=0:h=0:n=0:CL5:PRINT:FRINT " "w&" Inhalt SCHNEIDER-aktiv "w£" "an 
Ig" Stand Heft : "dts" "u$TPRINT 
1320 PRINT" un: 2 Menue I "m$: PRINT" y$  IyEERRINT" BT: ST 3 
1330 PRINT" AT: 2 Kartei speichern "s$:FRINT" DE SENT: 
1340 FRINT" "nn Kartei einlesen "wS3FRINT" TE Sa: 
1350 FRINT" ML Kartei verwalten Menue 2 2 "w£&:2FRINT" Ba: ST: 
1360 FRINT" N 2 Kartei Jrucken Menue : "sb: FRINT" BTL STE 3 
370 FRINT" TE 2 Daten eingeben "w$:FRINT" TE ST 
270 FRINT" I Kartei lesen "s$:FRINT" ENT Se TE 3 
390 FRINT" "yp" Neustart "st 
4090 FRINT:FRINT:FRINT:FRINT TAB(Al)w$" >>> bitte Ziffer waehlen "w$ 
410 as=INKEYS . 
1420 IF as="1" THEN »ahl$="Kartei speichern":alSuUB 3040:50T0 2050 
30 a$="2" THEN wahl$="Kartei einlesen":5E0SYB 3040: 50T0 2300 
Iaao as="3" THEN 990 
'as0 ag="4" THEN 510 
12.0 a$="5" THEN wahl$="Daten eingeben":50S5UB 3040:50T0 1440 
1470 asz="&4" THEN wahl$="Kartei lesen":50SUB 3040:G0TD 2440 


NeÜUPÜüNnNM 
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Yan 


420 IF a$="7" THEN 2500 
490 GOTO 410 


O 


SO0O 

S10 REM #ertetset menue 3 druck 

520 f 

S30 suz=0:5LS:PRINT:PFRINT " "u" Inhalt SCHNEIDER-aktiv "we" "y$" Stand 

Heft : "dts" "ws 

540 FRINT:PRINT" pt Menue 3 Drucken "s$:PRINT" "pt NmE$EPRINT" 
"1% “ TE: 3 

550 FRINT" "y$" 1 Kartei Jrucken "u: FRINT" ut: 20 "u% 

540 FRINT" "u$" 2 Auswahl drucken "u$:FRINT" DENE SE: = 

570 FRINT" "$" 3 Kartei verwalten Menue 2 "wm$:FRINT" BT: 2 "u 

580 PRINT" "ns" 4 Eingaben Menue 1 "w$ 


I 
I 
l 
I 
I 
I 
I 
j 
j 
| 
) 
I 
590 PRINT:FRINT:FRINT:FRINT TAB(41)wm$" >>> bitte Ziffer waehlen "w$ 
00 a$=INKEY$ 
«10 IF ag="1" THEN wahl$="Kartei drucken" sGüSUB 3040:50T0 670 
“zu IF a$="2" THEN wahl&="Auswahl drucken" :GOSUB 3040: h=8:50T0 1210 I 
430 IF ag="3" THEN 990 
AO IF ag="4" THEN 310 
450 GOTD SOO N 
ud? | 
#70 REM meer Druackvorgang 
wS0 ? N 
#90 CLS:FRINT" Druckvorganog. Moment bitte" N 
700 IF h=3 THEN 710 ELSE PRINT#2: CHR$ (LS) CHRS$ (27) CHR$ (73) CHRSCLICHRE (1A) SEP 5 
RINT#8; "Inhalt SCHNEIDER-akt iv"s:FRINT #5, teil$:FRINT #3:50T0 720 
710 FRINT#8, CHR$ (LEI CHR& (ZI CHRS$ (73) CHR$ (LI CHR& (14) 5 :FRINT#S; "Inhaltsausmwah 
1 SCHNEIDER-aktiv"s:FPRINT #3; teil$:FRINT #3:PRINT #2:50T0 730 
720 PRINT#S, "Stand: "3:FRINT#S,Jt$5 :PRINT#S: IF n>50 THEN FRINT#S, "Nr. Stich 
sort ÜQuelle Inhalt Bemerkungen": FRINT#S3: RETURN I 
730 IF h=3 THEN FRINT#E:PRINT#S, "Gesucht wurde nach : "s:FÜR be= 1 TO 4:FRI 
NT#3, such$(be)", "38NEXT be:FRINT#S:PRINT#S j 
740 FRINT#S, "Nr. Stichwort GBuelle Inhalt Bemerkungen": | 
FRINT#S: IF h=S THEN RETURN | 
I 


750 PRINT #5 akt s 


760) FOR n=1 TO Inden 


770 

720 "kstetok Hinweis zum Abtippen: Das im Listing erscheinende > 

790 steht fuer den Schraegstrich (oberhalb von «<trl) 

800° 

E10 FRINT #39; CHR$ (15) 5 :FRINT #3, USING "HH" snds sFRINT#S, " "s:PRINT #5, US 
INS "5 5";d$(n> 1) 5 :PRINT#S," "5SPRINT #5, U5SINS "5 be} 


"sds(n>Z2)5:PRINT#S:" "5:PRINT #5-USING "5 
S'sds(n>3)5 | 
O FRINT #8," "s:PRINT #93-USINa "5 5": 
(n»4):IF h=& AND suz=50 THEN 50SUB 2920 
0 IF h=5 AND suz=100 THEN 5OSLB 2940 
O0 IF h=5 THEN RETURN 


LISTING 
2.0:.0000.008.0098.0.0. 002002 00.0.5 


O0 IF n=51 THEN FRINT#S,» CHR$ (12) 3: teilg=" Teil Z":5a0SUB 700 
THEN FRINT#S, CHR$ (12) 5:teil$=" Teil 3":G0SUB 700 
THEN FRINT#3, CHR$ (12) 5: teilg=" Teil 4":505UB 700 
THEN FRINT#E, CHR$ (12); teils" Teil 5S":G0SUB 700 
THEN FRINT#F, CHR& (ID SS teils=" Teil 2":GOSUB 700 
THEN FRINT#E, CHRE (12) 5: teil$=" Teil 7":G0SUB 700 
10 IF n=351 THEN FRINT#3, CHR$ (12) 3: teils=" Teil S":G0SUB 700 
YzO IF n=401 THEN FRINT#E, CHR$(12)s5:teils=" Teil 9":G0SUB 700 
730 IF n=451 THEN FRINT#S, CHR$ (12) 5: teils=" Teil 10":50SUB 700 
740 IF n=501 THEN FRINT#S, CHRE(12)3:teils=" Teil 11":50SUB 700 


950 NEXT n=FRINT#2» CHR$ (15) 
9766 PRINT#S> CHR& (12) 
9779 teils=" "5STD 310 
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1950 ° 
9909 REM serstetstet menue 2 Kartei verwalten 
1000 
1010 suz=0:CLS:PRINT:PRINT " "y$" Inhalt SCHNEIDER-aktiv "w$" "us" Stan 
d Heft =: "dt$" "w$:PRINT . 
1020 FRINT" u Menue 2 Kartei verwalten "w$=PRINT" "u" "y$3PRI 
NT" Du TE ZT 
1030 FRINT" un 2 
15640 PRINT" y 
1050 FRINT" My 
1040 FRINT" 1 
1070 FRINT" My 
1050 PRINT" BIT: 25 
1090 PRINT:PRINT:FRINT:PRINT TAB(41)w$" >>> bitte Ziffer waehlen "w$ 
1106 a$=INHEY$ 


| 

I 

| 

| 

| 

| Suchen "y$:PRINT" ng 
| 
| 
) 
| 
I 
ı 1110 IF as="1" THEN wahl$="Suchen":50SUB 3040:G0T) 1210 
| 
I 
| 
I 
| 
I 
| 
| 
| 
I 
| 
\ 


Eintraege aendern "u$: PRINT" TE STE 5 
Eingaben Menue 1 "w$:PRINT" yet 
Eintraege loeschen "y$3 PRINT" y 
Kartei lesen "u$: PRINT" Au, Sn NT 3 
Kartei drucken Menue 3 _ "w$ € 


eWupin- 


1120 IF a$="z" THEN wahl$="Eintraege aendern":50SUB 3040:45T0 1250 
1130 IF a$="3" THEN 5OTO 310 

1140 IF as="4" THEN wahl$="Eintraege loeschen":50SUB 3040:50T0 1910 
1150 IF a$="5" THEN wahl$="Kartei lesen":G0SUB 3040:5G0T0 2440 
1160 IF a$s="64" THEN GOTD 510 

1170 S0Tn 1100 

1190 ° 

1190 REM etetstott eingabe von suchkriterien 

1200 ° 

1210 CLSSFRINT"Bitte geben Sie bis zu 4 Suchkriterien ein ! 
1220 PRINT:FRINT"Nicht benoetigte Kriterien mit > ENTER abschliessen." 
1230 FÜR su= 1 TO 4:PRINT:FRINT"Suchkriterium "suss INPUT " "ssuch$ (si) :NEX 
T susIF h=& THEN S0SUB 670:G0T0 1470 ELSE 1470 


1240 

1250 REM #ertorstor eintraege aendern 

1240 

1270 CLS:FRINT:FRINT" Welche Karteinummer soll geaendert werden "5 

1250 INFUT n:IF n>I OR n<l THEN PRINT:FRINT:FRINT w$" Karteinummer nicht vo 
rhanden ! Bitte neu. "w$:50SUJEB 2720:G0T0 1010 

1290 ELS:FRINT:FRINT"Karteinummer "zn:PRINT:PRINT 

1300 FÜR y = 1 TO 4:PRINT y" "z:50SUJB 2740:NEXT 

1310 PRINT:PRINT w$" Welche Zeile soll geaendert werden "w$5 INPUT " "3d 
1520 IF 4>4 OR J<i THEN PRINT=:PRINT" "w$" Eingabe nicht korrekt ! Bitte wie 
derholen. "w$#:50SUB 2720:G0T0 1310 

a PRINT:FRINT w$" Neufassung eingeben ! "w$3PRINT2INFUT 4$(n,dJ):50TND 134 
1340 FRINT:FRINT w$" Weitere Aenderungen 7? >» ji /nK£ "w$ 

1350 a$=INKEY$: IF a$ ="" THEN SOTO 1350 

1340 IF a$ = "j" THEN 50TO 1250 

1370 5G0OTD 990 

1350 

1370 REM tete nach suchkriterien suchen 

1400 ° 

1410 IF su=1 THEN 5OTO 1500 

1420 j=Z 

1430 FOR J =1 74 

1440 IF INSTR(d4$ (n>d),such$(j)) THEN IF j=su THEN 1510 

1450 IF INSTR(94$ (nd), such$ (j)) THEN j=j+1:G0TO 1430 

1440 NEXT J:50T0 1530 

1470 FÜR n= 1 TO I 

1450 FÜR e= 1 TO 4:IF J$(n;1)="8" THEN 1590 ELSE IF INSTR(3$(n,e),such$ (1) 
) THEN 1410 

1490 G0TO 1570 

1500 ? 


® 
®) 
O 
O 
O 
©) 
®) 
O 
O 
O 
®) 
O 
a 
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1510 IF h=3 THEN suz=suz+l’nd=esuz:5lSUB S10:50T0 1530 ELSE CLS:PRINT "Stand 
"dt£" — Karteinummer "sn:FRINT 

1520 FOR y= 1 TO 4:G0SUB Z740:2NEXT y 

1530 PRINT:FRINT:PRINT w$" Weiterer Karteiinhalt mit Suchkriterien: "w$:FRI 


6) 


j 
I 
] 
I 
1540 FOR q = 1 TO 4:PRINT" "such$(g)s:NEXT qg:PRINT:FRINT 
1550 G0SUB 3020 r 
1560 5OTO 1530 
1570 NEXT e ' 
1550 NEXT n ' 
1590 CLSE:FPRINT CHR$(PIw$" Keine weiteren Daten entsprechend Jen Suchkriteri 
en gefunden ! "w& 
1600 G0SUB 3020 
1510 IF h=3 THEN FRINT#S> CHR$ (12) 2 h=0 
1620 G0TO 990 
1630 ° | 
1640 REM #rttor daten eingeben | 
1450 ° N 
14405 CLSEPRINT "Handelt es sich um eine Ergaenzung oder Neuanlage einer Dat N 
ei ?"=FRINT:FRINT"Waehlen sie bei Ergaenzung > e © bei Neuanlage > n <" ' 
1470 x$=INKEYE ' 
1420 IF x$="e" THEN I=I+1:50T0 1710 
1490 IF x$="n" THEN BISUB 2500 i 
1700 S0TO 1670 
1710 CLS:FRINT:FRINT w$" Dateneingabe "w$:FRINT:FRINT 
1720 
1730 "stktt Hinweis zum Abtippen: Das im Listing erscheinende >5% | 
1740 steht fuer den Klammeraffen (rechts neben F) | 
1750 j 
j 
1770 FRINT:FRINT " Karteinummer "5;I | 
1750 PRINT: INPUT " Stichwort | 
1790 IF dJ$(I,1)="5" THEN I=I-1:50T0 310 | 
1500 FRINT:INFUT " üuelle | 
I 
I 
| 
j 
j 
I 
) 
| 
I 
j 
I 
| 
| 
| 
j 
| 
I 
I 
I 
j 


",d$(1:1) 


=: ",d$(1,2) 
1510 FRINT:INFUT " Inhaltsangabe = ",4d$(1,3) 

1220 FRINT: INPUT " Bemerkungen D ",d$(I,4) 

1830 PRINT:PRINT:PRINT"Eingabe richtig > ENTER £ sonst ern aru 
ecken !" 

1540 a$=INKEY$:IF a$ ="" THEN 1540 

1550 IF a$ ="n" THEN 1710 

15640 IF 1=499 THEN CLS:PRINT w$" Dies ist Jer vorletzte Eintrag fuer Datei 
"ats! "wbrGlsuB 2720:G0T0 1590 

1570 IF I=500 THEN CSLS:FRINT w$" Dies war Jer letzte Eintrag fuer Datei "dt 
$" "us: h0SUB 2720:G0T0 1550 ELSE 1590 

1550 FRINT:FRINT:FRINT" Bitte jetzt mit Menue 1 Ziff. 1 Daten speichern.":P 
RINT:FRINT" Danach mit Menue 1 Ziff. 7 neu starten und ggf. weitere Datei a 
nlegen.":GÖSUB 2720:G0T0 310 

1590 I=I+r1:60T0 1710 

1700 

1910 REM #etetitstek Jaten loeschen 

1920? 


1930 CLS:PFRINTZFRINT" Welche Karteinummer soll geloesıht werden "s:INPUT g 
1940 IF g>PI OR gti THEN FRINT:PRINT:PRINT " "w$" Karteinummer nicht vorhand 
en ! Bitte neu. "w$S50SUB 2720:G0T0 1010 

1950 ECLS:FRINT"Soll "3; 

19£0 FRINT"Karteinummer "g:PRINT:!n=g 

1770 FOR y = 1 TO 4:50S5UB 2740:NEXT y 


j 
I 
j 
j 
I 
I 
I 
j 
I 
I 
j 
I 
j 
I 
I 
I 
j 
j 
j 
j 
j 
j 
I 
I 
I 
I 
1 
ı 1760 PRINTSPRINT " "w$" Zur Beendigung > 8x eingeben ! "w$ 
I 
j 
j 
I 
I 
I 
I 
ı 
| 
j 
j 
I 
| 
I 
| 
j 
I 
I 
| 
I 
I 
| 
| 
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Kti 
zZ000 IF a& ="n" THEN 990 a 3 


Z010 99=9:g9=g+1:FÜR 1 = gg TO I:FOR y To 4 
2020 d$(1,y)=dl(gsy)ENEXT yigsg+tl:NEXT 1:1=1-1 
2030 GOTD 990 
z040 ° 
zZ0O50 REM erster kartei speichern 
ZOO? 
2070 GUSUB Z490:LLS:FPRINT w$" Kartei speichern. Cassette bzw. Diskette einl 
egen ! "'w& 
2050 PRINT:FRINT:PRINT:SFEED WRITE 1 
2090 PRINT:FRINT:PRINT "Soll bisherige Datei "w$" "dt$" "w$" geloescht we 
rden 7?" 
2100 PRINT:FRINT " nur bei Diskettenbetrieb moeglich !!":FRINT:F 
RINT "Bei Cassettenbetrieb > n * druecken !" 
z110 FRINT:FRINT w$" Bitte waehlen --> j /n "wS$ 
z120 
2130 sets Hinweis zum Abtippen: Das im Listing erscheinende >?6 
z140 ° steht fuer SHIFT+Klammerafffe (rechts neben P) » »8% 
z150 steht fuer Jen Klammeraffen (rechts neben P) 
Z1&0 
2170 x$=INKEY$:IF x$="j" THEN Jdat$=Jt$:öERA, Sdat$:5lT0 2200 
z120 IF x$="n" THEN 2200 
2190 GOTD 2170 
ZZO0 ÖFENDUT Jt$ 
= FRINT #3, 4t$ 
FRINT #91 
FOR n=1 TO I:FÜOR y=1 TO 4 
FRINT #9, d$ (n» yJ NEXT y 
2250 NEXT n 
ZZE6O FÜR y=1 TO 4 
2270 FRINT #9; "S":NEXT y 
2250 CLÖSEDUT:GOTO 310 


E 


REM #+Htr Kartei einlesen 


’ 


’ 
E 


ELS:PRINT w$" Kartei einlesen. Lassette bzw. Diskette einlegen ! "w$®l 
a$s="j" THEN 2360 ELSE FRINT:PRINT "Soll Disketteninhalt angezeigt werden 
» 3 / mn <":PRINT:?FRINT:GÜOSUB 2950 
O0 FRINT:FRINT"Geben Sie als Dateinamen jetzt Jie Heftnummer an, bis zu J 
Jie Literatur verarbeitet haben. ( z.B.: 3-36 )":FRINT 
RINT:FRINT"ÜÖder aber den Dateinamen, Jen Sie selbst vergeben haben.":FRIN 
PRINT 
INPUT "Dateiname lautet .„."sJt$ 


ı 2350 FRINT:PRINT:PRINT 
ı 2360 SLOSEIN:SÖOPENIN Jt% 
2370 INPUT #9, dt$, 1 


2350 ein=l 


12390 INFUT #9: D$(ein;1),D$(ein-2),D$(ein;3),D$(ein,4) 
2400 IF D$(ein,;1})="8" THEN 2420 


z410 ein=ein+1:50T0 2390 

2420 CLOSEIN:IF a$="j" THEN 1470 ELSE 310 

2430 ° 

2440 REM Hrrrtr kartei lesen 

2450 ° 

2440 GOSUB Z6I0:CLSSEPRINT " "w$" Kartei lesen "w$ 

2470 FRINT:FRINT: INPUT" ab welcher Nummer "sn:GOT) 2530 

2420 a&=INKEY$ 

2490 IF a$="1" THEN 2530 

2500 IF ag="2" THEN 2600 

2510 IF a$="3" THEN n=0:50T0 310 

2520 GUT) 2480 2 

2530 CLS:PRINT w$" Inhaltsuebersicht SCHNEIDER — aktiv "w$:PRINT:PRINT:PRI 

NT" Karteinummer "sns:PRINT" "ms" 1 - vor "w$" "my" 2 —- rueck "u$" 

"$" 3 — zum Menue "w$:PRINT:PRINT 

2540 FÜR y = 1 TO 4 

2550 IF d$(n:1)="5" THEN FRINT CHR$(7)E2PRINT:PRINT w$" Keine Eintragungen ! 
Letzter Eintrag war Ifd.Nr. "w$35 :FRINT" "n-1:50T0 2450 


Kti 
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2560 GOSUB 2740 

2570 NEXT y 

2520 nen+l 

2590 GITI 2450 

Z&90 nen-l 

2610 IF n 1 THEN n=i 

2620 CLS:PRINT w&£" Inhaltsuebersicht SCHNEIDER - aktiv "w$:PRINT:PRINT:PRI 
NT" Karteinummer "sns:=FRINT" "m£" 1 - vor "ws$" "m" 2 - rueck "u" 
"y$'" 3 - zum Menue "w&$:FPRINTSFRINT 

2430 FÜR y = 1 T0 4 

2640 GOSUB 2740: NEXT 

2450 GOTD Z4E0 

PL=LA0) 

2670 REM astetstatt unterprogramme 

ZAEO ? 

2690 IF I © 1 THEN CLS:SFRINT?FRINTEFRINT w$" Keine Daten im Speicher ! "w$: 
SIJTO 2710 

2700 RETURN 

2710 FRINT CHR&(MDEFOR ii 1 TO 5000:NEXT:50TO 310 

2720 PRINT CHR&(MDIEFOR ii 1 TO 5000: NEXT: RETURN 

2730 REM 

2740 IF y=1 THEN FRINT w#" Stichwort un 2 "ds(n>y)=FRINT 
2750 IF y=Z THEN FRINT w&" Guelle NE 2 "d$(n»y)=PRINT 
27&0 IF y=3 THEN FRINT »$" Inhaltsangabe Bun: 2 "d$(n>y)=PRINT 
2770 IF y=4 THEN FRINT w&" Bemerkungen y! "g$(n>y):SFRINT 
2750 RETIRN 

2790 

2800 REM tetetettt neustart 

2910 

2820 FRINT CHRS(TIELLS 

2530 FRINT:FRINT?FRINT w$" Wollen Sie wirklich Jas Frogramm neu starten 7 


FRINT:PRINT=:FRINTSFRINT w$" Haben Sie Jie Daten schon gespeichert 7 "w 


FRINT:FRINT:PRINT:PRINT " Waehlen Sie bitte > j /n x" 

zZ$=INKEY$:IF z$="j" THEN RUN 

IF z$="n" THEN 310 

SOTD ZERO 

REM +astttok unterprogramme 
2920 FRINT#S: CHR$ (LI CHRE (LEI a S FRINT#S > CHRS$ (ZI CHRS$ (73) CHRS$ CL) CHRS$ (14) 3: FRI 
NT#S, "Inhaltsauswahl Teil Z":PRINT #3:FRINT#3, " Gesucht wurde nach = "s:rfo 
R be= 1 TO 4:FRINT#S> such$(be)", "SENEXT be:FRINT#HE:PRINT#S 
2930 FRINT#3, "Nr. Stichwort Duelle Inhalt Bemerkungen" 
:FRINT#3:RETURN 
2940 FRINT#3: CHR$ CLZICHRS$ (LS) 5 S FRINT#3> CSHRS$ (ZI CHRS (TI CHRS$ (LI CHRS$ (14) 5: PRI 
NT#S,"Inhaltsauswahl Teil Z3":FRINT #35:FRINT#5, " Gesucht wurde nach = "3:Fd 
R be= 1 TO 4:FRINT#3, such#$(be)", "s:NEXT be:FRINT#H3:FRINT#S:G0TO 2930 
2950 xx$=INKEY$ 
2960 IF xx$="n" THEN RETURN 
2970 IF xx$="j" THEN SLSEFRINT " "m$" Inhaltsverzeichnis der eingelegten D 
iskette "w$:PRINT:FRINT:CAT:GOTO 3020 
2920 GOTO 2950 
2990 ° 
2000 REM serserstet tastenabfrage 
3010 ° 
3020 FRINT:PRINT " weiter mit >>> "ws" Taste "w& 
ZSO30 aas=INKEYE:IF aas="" THEN 3030 ELSE RETURN 
3040 7 
3050 REM tHterstekt wahlbestaetigung 
3040? i 
3070 ELS:PRINT CHRE&(7)SSFPRINT"Sie haben "w#" "wahl$" "w$" gewaehlt IMZPRINT 
"PRINT:FRINT"Bleibt es bei Jieser Entscheidung Pu 0 A 1 Be Fe 2 de 
Z0S0 aa$=INKEY$:IF aa$="n" THEN 280 
3090 IF aas="j" THEN RETURN 
3100 SIT 2050 


MUSS ES IMMER SCHNEIDER SEIN? 


SCHNEIDER-aktiv will seine Leser nicht ein- 
seitig über Computer informieren. Die Leser- 
schaft von SCHNEIDER-aktiv besteht nicht 
nur aus Besitzern von Schneider- oder AM- 
STRAD-Computern - gerade viele SCHNEI- 
DER-aktiv Leser haben überhaupt noch kei- 
nen Computer und liebäugeln erst mit der 
Anschaffung eines solchen. Andere Leser 
wollen wollen ‘aufsteigen‘ und sich einen 
Computer anschaffen, um ganz bestimmte 
Aufgaben zu realisieren und fragen, ob das 
mit dem CPC möglich ist. Die Aufgabenziele 
sind oft so hoch gesteckt, daß diese - sei es 
wegen fehlender Software oder Peripherie - 
nicht oder nur schwer mit dem CPC zu errei- 
chen sind. Schließlich sind es dann auch 
Kostengründe, die unter Umständen die An- 
schaffung eines anderen Computers befür- 
worten. 


SCHNEIDER-aktiv sieht es als eine Pflicht an 
seine Leser zu beraten und vor Fehlentschei- 
dungen zu bewahren und will in Zukunft auch 
über interessante Computer und Computeran- 
wendungen berichten und auch den CPC mit 
anderen Computern vergleichen und die Vor- 
und Nachteile herausstellen. 


Es tut sich viel auf dem derzeitigen Compu- 
termarkt. Eine Messe jagt die andere. Fast 
täglich kommen neue Systeme und neue Soft- 
ware und Hardware auf den Markt. 


Derzeit sind es aber nur wenige Systeme, die 
langfristig Zukunftsaussichten haben. War 
Commodore mit seinem C 64 lange Spitzenrei- 
ter auf dem Homecomputermarkt, so war es 
wohl ein Fehler sich auf diesen Lorbeeren 
auszuruhen. Der C 128 wurde auf dem Kon- 
zept konstruiert vorhandene Software einzu- 
setzen und war so im Prinzip bereits mit 
seinem Erscheinen veraltet. Amstrad (Pro- 
duzent der Schneider-Computer) nahm auf 
bereits existierende Hard- und Software keine 
Rücksicht und änderte mit jedem neuen Mo- 
dell (4 Modelle in einem Jahr!) auch das 
Betriebssystem und sogar die Schnittstel- 
lenstecker. Das wäre nicht schlimm, wenn man 
Anpassungssoftware bezw. Anpassungsadapter 
zum kompatiblen Betrieb der Schneider-Com- 
puter untereinander mit- oder nachliefern 
würde. Dazu wird es aber wohl nicht kom- 
men, schon eher erwartet man in Fachkreisen 
ein neues - wieder nicht kompatibles - 
Modell. 


Diese Strategie kann zum Out eines Computers 
führen, wenn der Wettbewerb infolge zuneh- 
mender Marktsättigung härter wird. So 
schreibt Commodore in Ländern mit höherer 
Marktsättigung bereits hohe Verluste während 
die deutsche Tochter noch Gewinne erzielt. 


Der CPC hat im letzten Jahr knallharte Kon- 
kurrenz bekommen. Im Hinblick auf den Preis 
ist dies vor allem der ATARI ST, dem sich 
viele CPC-Anwender und CPC-Interessenten 
zuwenden. Inzwischen hat ATARI seine An- 
fangsschwierigkeiten, die allein in fehlender 
Software bestanden, überwunden. Namhafte 
Softwarehersteller haben sich auf Grund der 
hervorragenden Hardware der ST-Computer 
diesem Produkt angenommen und ATARI 
selbst hat sein Versprechen: "Jedem Käufer 
eines ATARI ST 520 nach Fertigstellung der 
Grundsoftware diese kostenlos nachzuliefern" 
erfüllt. Hervorragende Software, die nicht 
zuletzt auf Grund der großen Speicherkapa- 
zität des ATAKI ST möglich wurde. 


Da gibt es aber noch eine harte Konkurrenz 
zum CPC, deren sich viele vorausschauende 
Computerfreaks zuwenden: Der IBM - oder 
besser gesagt dessen Kompatible. Das hat seine 
Gründe: Der Kompatible ist kaum teurer als 
der CPC - er ist sogar preiswerter, wenn man 
von einer größeren Speicherkapazität, dem 
Einsatz mehrerer Diskettenlaufwerke bezw. 
der Harddisk ausgeht. Und der Kompatible 
ermöglich einen Zugriff auf eine schier 
unendlich große Palette von Software sowie 
der Einsatz preiswerter Zusatzkarten für alle 
nur denkbaren Anwendungen - ohne Kabel- 
verhau. Nicht ohne Grund kam der IBM oder 
dessen Kompatible - in den Bundesländern, 
die sich bereits heute unserer Jugend 
annehmen (z.B. Baden-Württemberg und 
Bayern) - in den Schulen zum Einsatz. Nicht 
ohne Überlegung stellten namhafte Compu- 
terhersteller auf das IBM-PC-SYSTEM um. 
(HEWLETT-PACKARD, SIEMENS, TRI- 
UMPH-ADLER - selbst COMMODORE und 
andere). Die Entscheidung eines Jugendlichen, 
der in der Schule mit dem IBM-PC-SYSTEM 
arbeitet, wird so oft auch zum Kompatiblen 
tendieren. 


Zusammenfassend kann festgestellt werden, 
daß in Zukunft nicht der Computer selbst den 
Erfolg am Markt bestimmt, sondern allein die 
Software und die Hardwareperipherie, die zu 
diesem Computer lieferbar ist. Zukunftssi- 


cherheit durch Kompatibilität, wie von IBM 
und ATARI praktiziert, ist die Devise zu- 
kunftssicherer Computer. Wer hier Fehler 
macht und im Alleingang eigene Systeme 
schaffen will, hat bald keinen Abnehmermarkt 
mehr - spätestens dann, wenn durch die Aus- 
bildung an Schulen das Spielen von Compu- 
terspielen in den Hintergrund gerät und echte 
Anwendungen mehr gefragt sind. 


Auf dem CPC-Markt zeigt sich bereits heute 
der Trend zu echten Anwendungen. Der Ver- 


Euölich . . . 


| 


kauf von Speichererweiterung, Zusatzfloppy, 
Harddisk, Grafiktableau und Mouse blüht und 
diese dienen wohl kaum nur dem Abspielen 
von Computerspielen. 


Die Firma Schneider sollte auch aufpassen, 
daß das Image des CPC aber nicht dadurch 
zerstört wird, daß Zusatzgeräte angeboten 
werden, die - wie ein Gericht im Januar 1986 
feststellte, "nicht ohne gewaltsame Manu- 
pulation oder Veränderungen in den Schneider 
CPC 464 eingesetzt werden" können. (Akten- 
zeichen 4 HK O 9661/85 Landgericht Nürn- 
berg-Fürth) 


unter mit den reisen 


PREISENTWICKLUNGEN 
AUF DEM COMPUTERMARKT 


Das Computerlager ist in zwei Teile gespalten 
deren Übergang mehr und mehr verschwindet. 
War bis vor kurzem klar erkennbar, was ein 
PERSONAL COMPUTER (PC) und was ein 
HOMECOMPUTER (HC) ist, so läßt sich 
heute eine Trennung nicht mehr so einfach 
vornehmen. Auch die Computeranbieter 
schaffen wenig Klarheit - insbesondere wenn 
Homecomputer als Personalcomputer deklariert 
werden. 


An Personal-Computer - die dem professio- 
nellen bezw. dem gewerblichen Einsatz dienen 
- sind bestimmte Voraussetzungen geknüpft 
wie: Hohe Verarbeitungsgeschwindigkeit (16 
bit mindestens), Software- und Hardware- 
kompatibilität zu den Produkten anderer Her- 
steller und Lieferanten, professionelle und 
universelle Software ohne Probleme der An- 
passung an Peripherie, vielschichtige Anwen- 
deroptionen, problemloser Systemausbau mit 
Produkten vieler Hersteller, Zukunftssicherheit 
durch Datenübernahme bei Systemwechsel, 
ausgezeichnete und fehlerfreie Literatur und 
schneller und 100% zufriedenstellender Ser- 
ice. 


KURSSCHWANKUNGEN 
BESTIMMEN DEN PREIS 
IM WETTBEWERB 


Der in den letzten Monaten stets gesunkene 
Dollarkurs führt nicht nur zu sinkenden Ben- 
zinpreisen. Computer wie die IBM-Kompatib- 
len und auch die CPC’s werden in Fernost 
produziert. Verrechnungsbasis ist meist der 
Dollar. Da bei IBM-Kompatiblen in der BRD 
wegen der hohen Nachfrage kaum Lagerbe- 
stände vorhanden waren, konnten hier die 
Wechselkursvorteile schnell an den Endver- 
braucher weitergegeben werden. Da Schneider 
nicht unter Konkurrenzdruck steht ließ das 
lange diesen Markt unberührt. So kann man 
heute einen IBM-Kompatiblen mit 256K 
RAM schon fast zum Preis eines CPC kaufen. 
Ein Vergleich der Preise ist aber schwierig, 
denn das Grundgerät des IBM-Kompatiblen 
schlägt zunächst hoch zu Buche. Beim Ausbau 
dann wird der CPC teurer als der IBM-Kom- 
patible - kostet doch eine 20MB Harddisk 
zum IBM-Kompatiblen mit Controller für 
zwei 30 MB Harddisks ca. 1800,- DM und 
beim CPC über 3000,- DM. 


Schneider 
akt 


MUSS ES IMMER SCHNEIDER SEIN ? 


für den kommerziellen Anwender 


Immer wieder erreichen uns Anfragen von 
Gewerbetreibenden und Selbstständigen, mit 
der Frage nach kommerziell einsetzbaren 
Computern für berufliche Zwecke. Diese 
Anwender haben das Computern mit dem CPC 
erlernt, versuchten diesen dann beruflich 
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yrofessional 
MUSS ES IMMER SCHNEIDER SEIN ...? 


einzusetzen und sind an fehlender bezw. 
unbrauchbarer oder ungeeigneter Software 
gescheitert. So hat ein Leser zum Beispiel viel 
Geld für ein Buchführungsprogramm ausgege- 
ben um dann feststellen, daß dieses nicht 
einmal in der Lage war die Mehrwertsteuer 
aus dem Bruttobetrag einer Rechnung richtig 
zu berechnen. Statt den Bruttobetrag mit 114% 
anzusetzen (Rechnung vom vermehrten 
Grundwert) rechnete das Programm stets die 
Mehrwertsteuer aus 100% - also falsch - aus 
dem Bruttobetrag aus. Reklamationen beim 
Lieferanten blieben unbeantwortet. Solch ein 
Programm ist völlig unbrauchbar und bringt 
den Anwender, wenn er dies nicht selbst 
bemerkt, in größte Schwierigkeiten mit dem 
Finanzamt. Gerade bei einem Buchführungs- 
programm kommt es auch auf einen hervor- 
ragenden Service an. Dem Umsteigen auf den 
Joyce schenkte der CPC-Fan kein Vertrauen: 
Die lieferbare Software war ihm zu gering 
und er befürchtet einen baldigen Modell- 
wechsel, der oft einer Preisherabsetzung eines 
Computermodell folgt "... dann gibt es es 
vielleicht auch bald keine neue Software mehr 
und wegen fehlender Kompatibilität ist unter 
Umständem auch keine Übernahme von Daten 
auf ein neues System gegeben ...". 


So wurde an uns die Bitte herangetragen für 
kommerzielle Computeranwendungen ein 
brauchbares preiswertes Gerät zu empfehlen. 
Wir prüften die Software des CPC und des 
Joyce und mußten dem Leser recht geben, daß 
diese wirklich mager beschert ist. Es gibt 
bisher nur wenige Anwenderprogramme, die 


den kommerziellen Anforderungen genügen. 


So stießen wir - durch Zufall auf sehr 
brauchbare PC's - genauer gesagt IBM-Kom- 
patible. Diese haben wir einem intensiven Test 
unterzogen und waren begeistert. Kein 
Wunsch bleibt offen und die Geräte sind nicht 
einmal teuer. Unser Feststellung: Solange es 
wenig 100%ige kommerzielle Software zum 
CPC oder Joyce gibt, können wir kommerziel- 
len Anwendern die IBM-Kompatiblen em- 
pfehlen - zumindest bis vergleichbare CPC- 
Software zur Verfügung steht. 


Das bezieht sich zunächst auf die von uns 
getesteten IBM-Kompatiblen Geräte. Wir tes- 
ten aber derzeit auch die ATARI-ST-Serie auf 
kommerzielle Anwendung und werden auch 
davon berichten. 


Besonderen Dank möchten wir den Firmen 
aussprechen, die uns spontan die IBM-Kom- 
patiblen zur Verfügung stellten und sich 
anboten, den SCHNEIDER-aktiv Lesern diese 
Geräte preisgünstig zur Verfügung zu stellen, 
Damit wir den Bedarf bei unseren Lesern er- 
kennen haben wir vereinbart, daß wir die 
zunächst die Anfragen bezw. Bestellungen 
uneigennützig entgegennehmen und an die 
Lieferanten weiterleiten. 


Wir beabsichtigen Software des IBM-Systems 
und die IBM-Kompatiblen in den Folgeausga- 
ben von SCHNEIDER-aktiv vorzustellen. 


Euer SCHNEIDER-aktiv TEAM 


- PROFESSIONAL 
IBM-XT-kompatible 


e 640 KB, voll bestückt 

e 1 Laufwerk 

e Color-Grafik-Karte 

e 150-W-Netzteil 

e DIN- oder ASCII-Tastatur 
e Komplettpreis DM 1962.- 


Maar | 

UN 

nn - in n R 
en Preise zuzügl. Versandkosten 

IBM ist eingetragenes Warenzeichen 


Erweiterungen: Multi-/O-Kaste (Uhr/RS232/Parallel) ........22222eeeeeeeeeen nn ne ehe wiegen DM 345.- 
Monochrome-Grafik-Karte (Herkules-komp.) ...........222r00eer sense ne nennen nun DM 375.- 
Eprom-BuMer nu... ee ei ee ei ed Mk rer DM 495.- 
AD/DA-Wandler-Karte:-+..:.:4 2... #0. ie ee ne er dad DM 475.- 
TTL-Monitor (für Herkuleskomp.) .....»..2222seseeeeeeneneneeee nenne ernennen nenn DM 398.- 
RGB-Farbmonitor 640x400 ... 2222222222 eeseeeeeeenenee nenne nennen ernennen nn DM 1250.- 
Diskettenlaufwerk 360KB...........222222eeeenenenee ernennen een rennen nennen DM 365.- 
22-MB-Harddisk inkl. Controller ...... 222222222020 eneeeeeen nennen nennen een nenn DM 2350.- 


Unser Portable ist tragbar ... 


e Nur 10 kg 

e XT-kompatibel 

e 640-KB-Mainbord (256k best.) 

e 8 Erweiterungs-Slots 

e 7 freie Eprom-Steckplätze 

e 7"-Monitor (bernstein) ee EEE 

e 2 Stück 360-KB-Laufwerke 

e Printeranschluß 

e Inkl. MS-DOS 2.11 
Handbücher 
Service-Software 

e Komplettpreis DM 3198.- 


III 
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SCHNEIDER-aktiv 
PROFESSIONAL Leser-Service 


. (Vermittlungs- und Beratungsservice) ; RE 


Postfach 1201 m 
8540 SCHWABACH 
Tel. 09122/2882 
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PRODUKT-INFO 


TASWORD 6123 


Das seit Jahren bewährte Textverarbeitungs- 
programm, gibt es nun völlig überarbeitet, in 
neuer erweiterter Form als 3" Diskette für den 
CPC 6128. 


Durch seine Professionalität hebt es sich von 
den anderen und teueren Textsystemen an- 
genehm ab. Abgesehen von den inzwischen 
selbstverständlich gewordenen Editier- und 
Korrekturmöglichkeiten, über schnelle und 
vielfältige Kursorplazierungen, Textmani- 
pulationen (z.B. Zentrierung), Tabulatoren, 
Blockverschiebungen, Such und Ersetzoptio- 
nen, Textformatierung mit oder ohne Rand- 
ausgleich und Setzen der Ränder in einem 
Bereich von ıi28 Zeichen, beinhaltet TAS- 
WORD 6128 Optionen zur Definition von 
Kopf- und Fußzeilen für den Ausdruck, Ein- 
bettung von Druckersteuerungszeichen und 
Anzeige der Seitenumbrüche im Text. Auch 
den Standard-Funktionen des CPC’s wurde bei 
TASWORD 6128 Rechnung getragen. So lassen 
sich die Funktionstasten mit beliebigen Texten 
belegen, die häufig benötigt werden. TAS- 
WORD 6128 selbst läßt sich individuell durch 
andere Farben, Kursorsymbole, Druckzeichen 
des ersten und zweiten Zeichensatzes und an- 
deres Seitenlayout anpassen. Die TASPRINT 
464 Zeichensätze sind ebenfalls integrierbar. 


Gegenüber den vorherigen Versionen besitzt 
TASWORD 6128 folgende zusätzliche Extras: 


- ein größeres Textfile, dessen Kapazität 
für über 6000 Zeichen ausreicht. 

- eine UNDO-Funktion, die versehent- 
lich gelöschte Zeichen aus einem 
unsichtbaren Textpuffer wieder in 
den Text einfügt. 

- vier vom normalen Text getrennte No- 
tizspeicher, die als Merkhilfe oder 
Zwischenspeicher für später ver- 


wendende Textteile eingesetzt werden 
können. Die Notizspeicher werden 
zusammen mit dem Text abgespei- 
chert - gehen also nicht verloren. 

- der Ausdruck von mehreren Text- 
files, die auf Diskette gespeichert 
sind, so daß auch längere Texte, die 
in einzelnen Teilen auf Diskette vor- 
liegen, praktisch als "ein einziges 
Textfile ausgedruckt werden können. 

- eine Datenmisch-Funktion, die das 
definierte Mischen von Daten eines 
separaten Datenfiles, daß mit TAS- 
WORD 464-D eingegeben oder von 
einem Datenbankprogramm übertra- 


gen wurde und einem Textfile zum 
Ausdruck von z.B. Serienbriefen er- 
laubt. Weitere Möglichkeiten ® dieser 
Funktion sind die individuelle Text- 
eingabe in eine freigehaltene Text- 
stelle während des Druckes, die Be- 
zifferung von mehreren Kopien eines 
mit Daten gemischten Textes und der 
durch die verwendeten Daten be- 
dingte Druck von Texten oder Text- 
blöcken, bei dem vier logische Ver- 
knüpfungen angewandt werden kön- 
nen. 


Die Data Merge Option erweitert TASWORD 
464-D auf ein Anwenderprogramm, mit dem 
der umfassenden Text- und Datenmanipula- 
tion kaum Grenzen gesetzt sind. 


Ein deutscher _Tutortext, Datenfiles und 
Beispieltexte mit denen die Bedienung von 
TASWORD geübt werden kann, die vollstän- 
dig ins Deutsche übersetzte Helpseite und das 
deutsche Handbuch erleichtern dem Anwender 
den Einstieg in dieses Textverarbeitungs- 
programm. 
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CLUB-INFO 


_PLZ 


_PLZ 4800 BIELEFELD 1: 
Tel. 0521/887970 Clubs 
_PLZ 4830_GÜTERSLOH: 
Tel. 05241/36350 DEUTSCHLAND 


_PLZ 


_PLZ 


"PLZ 


_PLZ 


_PLZ 


_PLZ 


_PLZ 


_PLZ 


_PLZ 


_PLZ 


_PLZ 


_PLZ 


_PLZ 


_PLZ 


_PLZ 


4630_BOCHUM 1 : 
Tel. 0234/596504 


5010_BERGHEIM: 

Tel. 02271/61775 
5132_ÜBACH-PALENBERG: 

Tel. 02451/46608 
5138_HEINSBERG 1: 

Tel. 02452/5710 
5140_ERKELENZ 4: 

Tel. 02435/2518 
5400_KOBLENZ 

Tel. 0261/71169 
5630_REMSCHEID: 

Tel. 02191/65121 
6300_GIEBEN: 

Tel. 0641/43287 
6330_WETZLAR: 

Tel. 06441/48652 
6352_OBER-MÖRLEN: 

Tel. 06002/396 


6382_FRIEDRICHSDORF: 


Tel. 06172/79355 
6600_SAARBRÜCKEN: 
Tel. 0681/3022098 


6927_BAD RAPPENAU:_ 


Tel. 07264/7702 
7000_STUTTGART_1 

Tel. 0711/766942 
7063_WELZHEIM: 

Tel. 07182/2192 
7129_TALHEIM: 

Tel. 07133/6799 
7250 LEONBERG 6 

Tel. 07152/21882 


Rufnummern von CPC-USER 


_PLZ 7311_HOCHDORF: 
Tel. 07153/58279 


_PLZ 7420 _MÜNSINGEN: 
Tel. 07381/2947 

_PLZ 7500_KARLSRUHE: 
Tel. 0721/472273 

_PLZ 7600_OFFENBURG: 
Tel. 0781/78268 


_PLZ 7800_FREIBURG/Br.: 


Tel. 0761/891448 
_PLZ 7894_STÜHLINGEN: 

Tel. 07744/5002 
_PLZ 7909 Dornstadt: 

Tel. 07348/22638 
_PLZ 8000 MÜNCHEN: 

Tel. 089/5701431 
_PLZ 8156_OTTERFING: 

Tel. 08024/2410 
_PLZ 8201_SCHECHEN: 

Tel. 08039/3237 
_PLZ 8670_HOF/SAALE: 

Tel. DEMNÄCHST 
_PLZ 8900_AUGSBURG: 

Tel. 0821/38165 
_PLZ 8900 AUGSBURG: 

Tel. 0821/573873 
PLZ 8941_ERKHEIM: 

Tel. 08336/7105 


_PLZ 8998_LINDENBERG/ALLGÄU___ 


Tel. 08381/7468 
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CLUB-INFO 


KENNEN SIE 
DIESES SYSTEM ? 


Es läuft auch auf Ihrem Schneider CPC! 


[72T = BIETEN 
Deas _ mowmal MaRKCoFT ILFE sTalus__DöE 


der Superlative 


640-200 Punkte Auflösung 
e Super-komfortable Bedienung in PC-Qualität 
e Technische Zeichnungen, Schaltpläne, Platinen layouts, Bilder, 
usw. können mit geringem Aufwand erstellt werden. 
e Zeichnungen können geladen und gespeichert werden 
e Problemloser Ausdruck mittels ‚Hardcopy’ möglich 
e Funktionen wie ‚Spray‘, ‚Text‘, ‚Freihand-Zeichnen‘, 
Radieren‘, ‚Kreis‘, ‚Rechteck ', usw. 


können eingeblendet werden, daher keine 
Spezialkenntnisse erforderlich 

e Mehrere Demo-Grafiken enthalten 

e Ausführliches deutsches Handbuch 

Die Lieferung erfolgt auf Kassette 


Computertechnik 
Z. Zaporowski 
Vinckestr. 4 
D-5800 Hagen 1 
Tel.: 02331/14344 Händleranfragen erwünscht 


RIESENAUSWAHL 


an Hard- u. Software 
für CPC. 


LESERFRAGEN 
PROBLEME 
ANREGUNGEN 


TELEFON: 09122/2882 
zum billigen Telefontarif 
jeden MONTAG 
18 Uhr bis 20 Uhr 


_PLZ 1000_BERLIN: 
Tel. 030/8227750 
_PLZ 2000_HAMBURG: 
Tel. 040/5401424 
_PLZ 2000_HAMBURG: 
Tel. 040/4917554 
_PLZ 2000_HAMBURG: 
Tel. 040/6932033 
_PLZ 2190_CUXHAVEN_1 
Tel. 04721/51262 
_PLZ 2300_KIEL 
Tel. 0431/5271325 
_PLZ 2320_PLÖN: 
Tel. 04522/4643 
_PLZ 2390_FLENSBURG: 
Tel. 0461/35170 
_PLZ 2400_LÜBECK: 
Tel. 0451/491151 
_PLZ 2908_FRIESOYTHE: 
Tel. 04491/2614 
_PLZ 2842 _LOHNE: 
Tel.. 04442/71546 
_PLZ 3000_HANNOVER 
Tel. 0511/7281172 
_PLZ 3500_KASSEL: 
Tel. 0561/103805 
_PLZ 3590_BAD WILDUNGEN: 
Tel. 05621/1322 
_PLZ 4182_UEDEM: 
Tel. 02825/8665 
_PLZ 4193_KRANENBURG: 
Tel. 02826/5470 


_PLZ 4200 _OBERHAUSEN_1__ 


Tel. 0208/845366 


_PLZ 4280_BORKEN_GEMEN: 


Tel. DEMNÄCHST 


_PLZ 4836_HERZEBROCK-CLARHOLZ_ 


Tel. 05245/6120 
_PLZ 4503_DISSEN: 
Tel. 05421/5183 


HARRY ON THE SCREEN - 


Es kommt in diesem Spiel darauf an, Harry, 
die Hauptperson dieses Spiels, nach und nach 
"zusammenzuwürfeln". Das Spiel ist für 2 - 5 
Personen gedacht. Nach dem Eingeben der 
Mitspielernamen wählt jeder Spieler seine 
eigene Glückszahl zwischen 1 und 5. Würfelt 
ein Spieler seine Glückszahl, so erscheint 
immer ein Teil von Harry. Der Spieler, der 
zuerst seinen ganzen Harry "erwürfelt" hat, 
ist Sieger. Viel Spaß! (Christian Eißner) 

LERERTERTERTETTERTTTRTERTETERERTETERTERERER NETT 


1000 ’ W@UELLELLLELLLLLEELLEELLLELEELLER 
1010 ’@@@ written by @a@ 


1020 ’@@@ Christian Eissner @ee@ 
1040 ’@EEEELLLLLELLELLLLEELELELLLLELLLER 
1050 ? 


1080 MODE 1 
1070 INK 0,0:INK 1,26 
1080 BORDER O 


1090 PEN 1 

1100 ”’------------------ 
1110 ”’- Farb oder Gruenmonitor- 
1120 ?--------------- -- 


11530 LOCATE 5,12:PRINT "Farb- oder Gruenmonitor (f/g)" 

1140 eingabe$=INKEY$ 

1150 eingabe$=LOWER$ (eingabe$) 

1180 IF eingabe$="f" THEN INK 1,2:2INK 2,18:INK 3,8:G60TD 1190 
1170 IF eingabe$="g" THEN INK 1,26: INK 2,13: INK 3,24:G0T0O 1190 
1180 GOTO 1140 

1190- SPEED INK 10,2 

1200 DIM spieler (5) „glueckszahl (5) ,name (5) 

1210 DEFINT a-z 

1220 RANDOMIZE TIME 

12530 durchgang=1 

1240 mann (durchgang)=10 

1250 ’-—------- -- 

12680 ”’---- Titelbildaufbau ---- 

1270 ? me 

1280 GDSUB 2810:G6DSUB 1980 

1290 PEN 2 
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HARRY ON THE SCREEN 


1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1450 
1440 
1450 
1450 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1800 
1510 
1620 
1630 
1640 
1550 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
17860 
1770 
1780 


LOCATE 1,2:PRINT CHR$(164)+" Christian Eissner" 
PRINT STRING$ (19, "-") 

FOR waufbausi1 TO 6 

PEN 2 

LOCATE 20+waufbau, 15+waufbau 
PRINT CHR$(180+waufbau); 
NEXT waufbau 


wort$="HARRY on the SCREEN" 
wortlaenge=LEN (wort $) 317 
LOCATE 1,25:PRINT wort$ 
FOR yposition=O TO 16 s“ 
FOR xposition=O TO wortlaenge 

IF TEST(xposition,yposition) THEN PLOT xposition&%2+1,yposition%2+310,3 
NEXT:NEXT 

PEN 1 

LOCATE 1,25:1INPUT " Anleitung (j/n) "zabfrage$ 
abfrage$=UPPER$ (abfrage$) 

IF LEFT$(abfrage$,1)="J" THEN GOSUB 2320 ELSE GOTO 1520 
CLS j 


PRINT: INPUT" Wieviel Spieler (2-5) ";spanzahl 

IF spanzahl>5 OR spanzahl<2 THEN 1550 

FOR glueck=1 TO spanzahl 

PRINT "Dein Name, Spieler ";glueck; :INPUT;name$ (glueck) 
name$ (glueck)=UPPER$(name$(glueck)) 

NEXT glueck 

PRINT 

FOR glueck=1 TO spanzahl 

PRINT "Deine Glueckszahl "zname$(glueck);: INPUT glueckszahl (glueck) 
IF glueckszahl (glueck)>5 OR glueckszahl (glueck)<1 THEN 1640 

NEXT glueck 

CLS 

mann (durchgang)=0 


FOR durchgang=1 TO spanzahl 

ECLS:CALL &BBOS ö 

IF nochmal=1 THEN LOCATE 7,2:PRINT name$ (durchgang);" darf nochmal u 
IF mann (durchgang) >0 THEN GOSUB 2000 

PEN 1 


IF nochmal=0 THEN LOCATE 7,2:PRINT CHR$(24)+" Du bist dran ";name$ (durchgan 


g) ;+CHR$ (24) 


1790 
1800 
1810 
1820 
1830 
1840 
1850 
1880 
1870 
1880 
18970 
1900 
1910 
1920 
1930 
1940 
1950 
19850 
1970 
1980 
1990 
2000 
2010 
2020 


FEN 2 

PRINT:PRINT "Zum Wuerfeln bitte Taste druecken " 

PEN 2:LOCATE 1,25:PRINT "Deine Glueckszahl ";glueckszahl (durchgang) 
WHILE INKEY$="":WEND 

FOR wurf=1 TO 10 

zufall=INT(RND%6+1) 

PEN 3:LOCATE S+wurf,10+wurf:PRINT CHR$(180+zufall) 

LOCATE S+wurf,10+wurf:PRINT CHR$ (32) 

NEXT wurf 

LOCATE 18,20:PRINT CHR$(180+zufall) 

LOCATE 1,23:PRINT "Das war eine: ";zufall 

IF zufall=6 THEN nochmal=1:60T0 1750 

IF zufall=glueckszahl (durchgang) THEN mann (durchgang)=mann (durchgang) +1 
IF mann (durchgang)>O0 THEN GOSUR 2020 

nochmal=O 

FOR zeit=1 TO 2000:NEXT zeit 

NEXT durchgang 

G60TO 1730 


MOVE 500,240:DRAW 510,250,1:DRAW 550, 250:DRAW 560,240: DRAW 560,200:DRAW E50 


‚190:DRAW 510, 190:DRAW 500,200:DRAW 500,240:MOVE 510,240:DRAW 520, 240: MOVE Ss40,2 
40:DRAW 550,240:MOVE 530,230:DRAW 530,210 


. 
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HARRY ON THE SCREEN 


2030 MOVE 510,210:DRAW 520,200:DRAW 540,200:DRAW 550,210:PLOT 500,230:DRAW 490,2 
30:MOVE 490,230:DRAW 490,220:DRAW 500, 220:MOVE 560, 220:DRAW 570,220:DRAW 570,230 
:DRAW 560, 230:MOVE 530,250:DRAW 540,250 

2040 MOVE 530,250:DRAW 530, 260:MOVE 530,250:DRAW 520,260:MOVE 520,190:DRAW 520,1 
80:MOVE 540, 190:DRAW 540,180 

2050 IF mann (durchgang) >1 THEN 2100 ELSE RETURN 

2060 END j j 

2070 ’----------------- 

2080 ” ---———— Koerper --------—- 

2090 ’-------- -- - - - ----- -- --- 

2100 MOVE 520,180:DRAW 490, 180:DRAW 480,170:DRAW 480,110 

2110 DRAW 490, 100:DRAW 570, 100:DRAW 580, 110:DRAW 580, 170:DRAW 570,180:DRAW 540,1 
80:MOVE 520,150:DRAW 540, 150:DRAW 540, 130:DRAW 520, 130:DRAW 520,150 

2120 IF mann (durchgang) >2 THEN 2150 ELSE RETURN 

2130 END 

2140 ’------------------------ 

2150 ’-------- Arme ---------- 

2160 ? --—— hen nn 

2170 MOVE 480, 150 

2180 DRAW 440, 130:DRAW 420, 150:DRAW 430,160:MOVE 420, 150:DRAW 410,1&60:MOVE 420,1 
50:DRAW 400,150:MOVE 580, 150:DRAW 600, 180:DRAW 610,210:DRAW 600, 220:MQOVE 610,210 
:DRAW 5&20,220:MOVE 610,210:DRAW 610,220 

2190 IF mann (durchgang) >3 THEN 2240 ELSE RETURN 

2200 END 


2240 MOVE S510,100:DRAW 490,40:DRAW 460,50:MOVE 550,100:DRAW 580,40:DRAW 6810,50 
2250 IF mann 6sdurchgang)=10 THEN RETURN ELSE GOTO 2270 

2260 END 

2270 FOR zeit=1 TO 4000:NEXT zeit 

2280 GOTO 2490 


"2320 PEN 2:CLS 

2330 PRINT STRING$ (40,208); 

2340 LOCATE 12,2:PRINT "HARRY on the SCREEN" 

2350 PRINT STRING$ (40,210); 

2360 PEN 3 

2370 LOCATE 1,7:PRINT "JEDER SPIELER WAEHLT EINE GLUECKSZAHL" 
23580 LOCATE 1,9:PRINT "ZWISCHEN 1 und 5. ES WIRD DANN DER REIHE" 
2390 LOCATE 1,11:PRINT "NACH GEWUERFELT. ZEIGT DER WUERFEL DIE" 
2400 LOCATE 1,13:PRINT "ZAHL AN, DIE DER SPIELER GEWAEHLT HAT," 
2410 LOCATE 1,15:PRINT "DANN ERSCHEINT EIN TEIL VON HARRY. DER" 
2420 LOCATE 1,17:PRINT "ERSTE, DER EINEN GANZEN HARRY HAT, IST" 
2430 LOCATE 1,19:PRINT "DER GEWINNER DES DURCHGANGES. " 

PEN 1 

2450 PRINT:PRINT " ZUM FORTFAHREN TASTE DRUECKEN" 

2460 WHILE INKEY$="":WEND 

2470 RETURN 

2480 END 

2490 CLS:MODE O 

2500 INK 4,26,0:INK 5,21 

2510 PENS 

2520 FRINT STRING$ (20, 228); 

25530 LOCATE 1,25:PRINT STRING$ (20, 228); 

2540 PEN 4 

2550 LOCATE 1,10:PRINT "Glueckwunsch "zname$(durchgang) 

2560 PEN 5 

2570 LOCATE 1,13:PRINT "DU HAST GEWONNEN !ı 1" 

2580 WHILE INKEY$="";WEND 

2590 MODE 1 

2600 RUN 1190 


2820 ”--- Wuerfel definieren — 


2640 SYMBOL AFTER 180 

2650 SYMBOL 181,126, 255,255, 231,231,255,255,126:REM -1- 
2660 SYMBOL 182,126, 207,207, 255,255, 243,243, 126:REM -2- 
2670 SYMBOL 183,126, 223, 255,239, 255,255, 251,126:REM -3- 
2680 SYMBOL 184,126, 255,186, 255,255, 189,255, 126:REM -4- 
2690 SYMBOL. 185, 126,219, 255, 255, 239, 255,219, 126:REM -5- 
2700 SYMBOL 186, 126,219, 255, 255,219, 255,219, 126: REM -6- 
2710 RFTURN 

END 
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PASCAL-PROGRAMM ZUR 
PROBLEMLOSEN DARSTELLUNG 
.VON STEUERZEICHEN 
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Jeder Computerbesitzer kennt die Schwierigkeiten des TYPE Programms, das im CP/M Pro- 
grammpaket enthalten ist. Wenn man mit diesem Programm einen Textfile auf dem Bildschirm O 
darstellen will, muß man wissen, ob es sich um einen reinen Print-File handelt, der keine Steuer- 
zeichen enthält. Die Steuerzeichen, die z.B. ein Textfile enthält, der mit WORDSTAR geschrieben 6) 
wurde, stört die Bildschirmausgabe so, daß in vielen Fällen der Computer zum Absturz kommt. 
Dieses Programm behebt diese Schwierigkeiten. (Achim Walder) 
RELLEEEBEEEREEEEEDIIOzpacce 
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1 program Test; (* Copyright by Achim Walder *) 
2 var 2_1, 2_2 : integer; 
3 
4. 68&---------2--- 44444444444 *) 
5. <#* Function GGT.PAS Zahl_i Zahl_2 “<C) A.Walder) *) 
6. KR 07000000 *)] 
? function G6T £ Zahl_i, Zahl_2 : integer ) : integer; 
8 . ‘ 
2 var hv : integer; (* Hilfsvariable *) 
10 
11 begin 
12 if Zahl_1 % Zahl_2 (* Zahl_2 muss > sein als Zahl_i %) 
13 then 
14 begin (* Zahl_I und Zahl_2 vertauschen %) 
15 hv := Zahl_1; 
16 Zahl_i := Zahl_2; 
17 Zahl_2 := hy; 
18 end; 
19 repeat 
20 hy := Zahl_i - Zahl_2 * trunc € Zahl_1 / Zahl_2 3; 
21 it hv >30 
22 then 
23 begin 
24 Zahl_I := Zahl_2; 
25 Zahl_2 := hu; 
26 end; 
27 until hv = 0; 
28 G6GT := Zahl_2; 
29 end; 
30 
31 (#--------- 7222022272 *) 
32 (* Hauptprogramm #) 
33° begin 
34 write £° 1. Zahl : °)5 
35 readIn (2_1d; 
36 write £° 2, Zahl : 7); 
37 readin X2_23; 
38 writein 4° GGT wird berechnet !!’); 
39 writeln (’ von *,2_1,’ und *,2_2,° ist der 66T : °,66T(2_1,2_2D); 


40 end. 


©: 30420: 302:9>.104. 20: :9.,08,°9 .0:19,..0.0:.:0720::0 


Fass a ; 


AUF 


GUMPUTER-SCHRIFT 


DEM GPG 


Der CPC hat ein sehr sauberes Schriftbild, das 
keine Wünsche offen läßt. Jedoch bin ich von 
Freunden oft darauf angesprochen worden, 
daß die Rechner im Kino und Fernsehen ihre 
Schrift anders darstellen, z.B. in "WAR- 
GAMES". 


Dieses habe ich zum Anlaß genommen, ein 
Programm zu schreiben, daß die sogenannte 
"COMPUTERSCHRIFT" auf den Bildschirm 
zaubert. Bis Zeile 570 werden die neuen Sym- 
bole definiert. Danach folgt ein Demo, daß 
den Text zeitverzögert auf dem Bildschirm er- 
scheinen läßt. (Andreas Müller) 

11171177278718371811878377877811377877%07737378310,. 705071777 


MODE 1 


INK 0,18:INK 1,0:INK 2,9:INK 3,7,0:BORDER 


PEN 1 


“®AMRCOMPUTERSCHRIFT*** 
“##KARNOLD“S WAHRES GESICHT*** 


RA N A a a a a a a a a a a a 


. 


SYMBOL AFTER 32 
0 
0 SYMBOL 
0 SYMBOL 
0 SYMBOL 
0 SYMBOL 
0 SYMBOL 
0 SYMBOL 
0 SYMBOL 
0 SYMBOL 
0 SYMBOL 
0 SYMBOL 
0 SYMBOL 
0 SYMBOL 
0 SYMBOL 
0 SYMBOL 
0 SYMBOL 


33,28,28,28,28,24,0,24,0° 
34,102,102,102,0,0,0,0,0° 
39,24,24,24,0,0,0,0,0° 
40,30,24,24,28,28,28,62,0° 
41,120,24,24,28,28,28,124,0° 
48,127,99,99,99,99,99,127,0° 
49,28,24,24,24,62,62,62,0° 
50,127,3,3,127,96,96,127,0° 
51,126,3,3,127,7,7,255,0° 
52,112,112,112,119,119,127,7,0° 
53,127,96,96,127,7,7,127,0° 
54,127,96,96,127,99,99,127,0° 
55,127,99,99,31,24,24,24,0° 
56,62,54,54,127,119,119,127,0° 
57,127,99,99,127,7,7,7,0° 
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LISTING 
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GEMPUTER-SCHRIFT 
AUF DEM GPG 


SYMBOL 58,0,24,24,0,24,24,0,0° 

SYMBOL 59,0,24,24,0,24,24,48,0° 

SYMBOL 61,0,126,0,0,126,0,0,0° 

SYMBOL 63,1727,99,3,31,28,0,28,0° 

SYMBOL 65,63,51,51,127,115,115,115,0° 
SYMBOL 66,126,102,102,127,103,103,127,0° 
SYMBOL 67,127,103,103,96,99,99,127,0° 
SYMBOL 68,126,102,102,119,119,119,127,0° 
SYMBOL 69,127,96,96,127,112,112,127,0° 
SYMBOL 70,127,96,96,127,112,112,112,0° 
SYMBOL 71,127,99,96,111,111,103,127,0° 
SYMBOL 72,115,115,115,127,115,115,115,0° 
SYMBOL 73,12,12,12,12,12,12,12,0° 

SYMBOL 74,12,12,12,14,14,110,126,0° 
SYMBOL 75,102,102,108,127,103,103,103,0° 
SYMBOL 76,48,48,48,112,112,112,126,0° 
SYMBOL 77,103,127,127,119,103,103,103,0° 
SYMBOL 78,103,119,127,111,103,103,103,0° 
SYMBOL 79,127,99,99,103,103,103,127,0° 
SYMBOL 80,127,99,99,127,112,112,112,0° 
SYMBOL 81,127,99,99,103,103,103,127,7’° 
SYMBOL 82,126,102,102,127,119,119,119,0” 
SYMBOL 83,127,96,127,3,115,115,127,0° 
SYMBOL 84,127,28,28,28,28,28,28,0° 
SYMBOL 85,103,103,103,103,103,103,127,0° 
SYMBOL 86,103,103,103,103,111,62,28,0° 
SYMBOL 87,103,103,103,111,127,127,103,0° 
SYMBOL 88,115,115,115,62,103,103,103,0° 
SYMBOL 89,103,103,103,127,28,28,28,0’° 
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KXEAZSCHNIOVOZZULTRUH TAN mM UNnuW» 


POKE &B1C8,0:POKE &BICF,&CC:POKE &B1lD0,&30 
AS="CPC-COMPUTERSCHRIFT":A=1:B=4: GOSUB 750 
AS$="(C) ANDREAS MUELLER":A=1:B=5:GOSUB 750 


POKE &BlC8,1:POKE &B1lD0,&44:POKE &BICF,&88:POKE &BlD1,&22:POKE &B1D2,&11 


PEN 2 

A$="DIES IST EINE DEMONSTRATION..." :A=5:B=15:G0SUB 750 
AS$S="BENUTZEN SIE DIESE ROUTINEN IN":A=5:B=17:GOSUB 750 
AS$="IHREN EIGENEN PROGRAMMEN,UM SO":A=5:B=18:G0SUB 750 
AS="WARGAMES-EFFEKTE ZU ERZIELEN.":A=5:B=19:GOSUB 750 
PEN 3 

AS="VIEL SPASS DABEI...":A=5:B=24:GOSUB 750 

FOR X=1 TO.5000:NEXT 

PEN 1 

FOR Y=1 TO 25:CALL &BC4D,1:NEXT 

FOR X=1 TO 1000:NEXT 

RUN 


. 


. 


LOCATE A,B:FOR Y=1 TO LEN (AS) 3 
PRINT MIDS (AS, Y,1) ;,:SOUND 1,28,2,12 
FOR 2=1 TO 40:NEXT 2 

NEXT 

RETURN 


D: "0 0:02. 0, 30 0: 3:07:09 DO: 10170: 9:5 0. 9. OD 
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SUPERBASIC “ 


| 
rr 


Durch dieses Programm werden 12 neue RSX- 
Befehle in das Betriebssystem des CPC einge- 
bunden: 


INolist INospace 
IReseton IResetoff 
IBaud,Par. IGpen,Par. 
IBreakoff IFrame 


mer 222222 2222222222222 2727 


1 

z x (C) 1986 Von x IWaitkey IDispro 

4 °’x Joerg Braun x IScup IScdown 

it Sen X 

DEE 233272727727 7722777220 277% Einer weiteren Erläuterung bedürfen diese 
97 CLS Befehle eigentlich nicht, da sie auch im Pro- 
10 ZN=500 


gramm selbst noch einmal erklärt werden. 


20 a=-24576 $ 

30 IF a<O THEN a=a+16”4 (Jörg Braun) 

40 WHILE zn DELLEERETETTERTTTTTETTERERTTTTTRRTTTTTTTRERT GR TTTR 
so WHILE b<=9 

Cie READ datas$:ps=ps+VAL("%"+datas$) 

79 IF datas$="ende'" THEN FRINT CHR$ (7) "Fertig":GOTO 7&0 

80 FOKE a+b,VAL("%k"+datas$) 

0. b=b+1 


100 WEND „ 
110 READ psum$ 


120 IF VAL("&"+psum$)<> ps THEN FRINT"Datafehler in Zeile "zn:STOr 
130 psum$="":ps=O : 

140 b=0:a=a+t1lO0:zn=zn+iO 

150 WEND 


| 
I 
I 
j 
| 
I 
j 
| 
I 
| 
j 
I 
j 
| 
I 
j 
j 
I 
I 
I 
I 
I 
| 
| 
j 
I 
500 DATA 1,A,AO,21,797,A0,C5,D1,BC,C9,4FE | 
510 DATA 30,A0,C3,7D,A0,C3,83,A0,C3,89,35E2 f 
520 DATA AO,C3,8D,AO,C3,A7,AO0O,CT,B1,AO,6AE | 
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C53,B7,AO,CS5,BD,AO,C3,DC,A0,C3,75C 
540 DATA EO,AO0,C3,E4,AO,C3,F1,A0,52,45,6R2 
SS0O DATA 53,45,54,4F,CE,52,45,53,45,54,38C 
560 DATA 4F,46,06,46,52,41,4D,C5,44,49,3DS3 
570 DATA 53,50,52,CF,47,50,45,CE,53, 43,404 
580 DATA 55,D0,532,42,44,4F,57,CE,42,41,5F6 
Ss970 DATA 55,C04,57,41,49,54,4B,45,D9,42,3F9 
600 DATA 52,45,41,4B,4F,46,C6,4E,4F,40,367 
610 DATA 47,553,D4,4E,4F,53,50,41,43,C5,3F9 
620 DATA 0,0,0,0,0,3E,C3,52,EE,ED,2DE 

8530 DATA C9,3E,C97,532,EE,BD,C9,CD,19,ED,619 
640 DATA C9,3E,SE,S52,1,AC,SE,0,32,2,296 
650 DATA AC,SE,32,32,3,AC,SE,45,532,4,2Bö6 
650 DATA AC,SE,AE,S32,5,AC,C9,FE,1,C0,505 
670 DATA DD, 7E,0,CD,DE,BB,C9,6,FF,CD,55C 
680 DATA 4D,BC,C9,6,0,CD,4D,BC,C9,FE,575 
&70 DATA 1,C2,5SC,BC,DD,6E,0,DD, 664, 1,46A 
700 DATA 11,B,0,CD,C1,BD,ES,D1,21,5F,49D 
710 DATA 76,CD,C1,BD,3E,A,CD,88,BC,C9,5C3 
720 DATA CD, 5,BB,C9,CD,48,BB,C9,3E,CD,SFRB 
750 DATA 32,13, AC,AF,S2,14,AC,352,15,AC,385 
740 DATA C9,3E,FF,32,0,AC,C9,0,0,0,3AD 

750 DATA ende 

7&0 MODE 1:CALL &AO000 

770 BORDER 5 

780 WINDOW#2,1,40,6,25 

770 FRINT STRING$ (40, "-") 

800 FRINT TAB(8) "XXX SUP E R--BAS IC X 
810 FRINT 

PRINT STRING$ (40, "-") 
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830 
840 
850 
8650 
870 
8830 
890 
900 
910 
920 
930 
940 
950 
960 
9770 
980 
990 
1000 
1010 
1020 
1050 
1040 
1050 
1060 
1085 
1070 
1080 
1090 
1100 
1110 


SUPERBASIC 


LOCATE 1,7:PRINT"Durch dieses Frogramm werden folgende 
PRINT"Befehle neu in das Betriebssystem 

PRINT"Ihres Schneiders eingebunden: 

PRINT: PRINT" |RESETON IRESETOFF 

PRINT" I FRAME «ıGPEN 

FRINT" SCUP ı SCDOWN 

PRINT" !DISPRO I! BAUD 

PRINT" IBREAKOFF IWAITKEY 

PRINT" |NOSPACE ıNOLIST 

GOSUB 1380 

LOCATE 1,7 

PRINT:PRINT"Die: Kommandos haben folgende Funktionen: 


PRINT: FRINT:PRINT" !RESETON sowie !IRESETOFF 

PRINT: PRINT"ermoeglichen das Ein bzw. Ausschalten" 
PRINT"der Resetfunktion von der Tasten- 

PRINT"kombination ueber CTRL/SHIFT/ESC. 

GOSUB 1380 ö ” 

LOCATE 1,8:FRINT"IBreakoff ist gleichbedeutend mit dem 
PRINT"6654-Befehl on Break cont und schaltet 
PRINT"angewandt in einem Programm die Funktionder Breaktaste ab. 
GOSUB 13580 

LOCATE 1,7:PRINT"!Gpen bedeuted Grafik’s Pen.":PRINT 
PRINT"Damit wird gleichbedeutend wie bei dem 

FRINT"Textpen die Stiftfarbe fuer Grafik":PRINT"veraendert. 
PRINT:FRINT"Beispiel: !GPEN,1 

GDSUB 1380 

LOCATE 1,7:PRINT" !scup sowie !scdown bedeuted" 
FRINT"Scrollup bzw. Scrolldown. 

PRINT:PRINT"Durch jeden Aufruf wird der Bildschirm 
PRINT"entsprechend eine Zeile hoch oder runter":PRINT" 


gescrollt. 


1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1211 
1220 
1230 
1240 
1250 


1260 
1270 
1280 
1290 
1500 
1510 
1520 
e 

1330 


GOSUB 13580 

LOCATE 1,7:FRINT" IFrame: ":PRINT:FRINT" Frame ermoeglicht eine 
PRINT"synchronisierte,d.h. flimmerfreie 

PRINT"Wiedergabe bewegter Grafik. 

GOSUB 1380 " 

LOCATE 1,7:PRINT" | Baud 

PRINT:PRINT" !Baud 'ermoeglicht ein stufenloses 

PRINT"einstellen der Baudrate bei der 

PRINT"Abspeicherung von Programmen auf 

PRINT"Kassette ab ca.1000 bis ca.3600 Baud. ":FRINT" (Kassettenabhaengig)' 
FRINT:FRINT"Beispiel: !BAUD, 3600 

GOSUB 1380 

LOCATE 1,7:PRINT" }Waitkey":PRINT:FRINT" !Waitkey veranlasst den Computer, 
PRINT"das laufende (Basic) Programm solange 

FPRINT"zu unterbrechen,bis eine beliebige Taste 


PRINT"gedrueckt wurde. ":LOCATE 1,20:PRINT"iWaitkey 

GOSUB 1380:L0CATE 1,7:PRINT" !Dispro:" 

PRINT:PRINT"!Dispro ermoeglicht ein normales 

PRINT"Einladen eigener versehentlich mittels 

FRINT"save ”’Name’,P abgespeicherter Programme. 

FRINT"Anwendung: !Dispro:load’Name 

GOSUB 1380:LOCATE 1,7:PRINT" !Nolist":FRINT:PRINT"!Nolist bewirkt bei Eingab 


FRINT"des List bzw. Editbefehls einen Reset des Computers":FRINT"Dies ist 


u.U.fuer den Programmschutz nuetzlich.Vorrausgesetzt,es ist ein":PRINT"Progr 
amm im Speicher 


1340 
1350 


GOSUB 1380 :LOCATE 1,7 
PRINT" !Nospace: ":PRINT:PRINT" INospace verhindert ueberfluessige":FRINT"Elan 


ks bei der Eingabe":PRINT"Aus 10 ?’Hallo’ (35pace> wird: ":PRINT"1O0 ?’Hallo’" 


1360 
15370 
1380 
1390 


GOSUB 1380: LOCATE 16, 16:PRINT"Das war’s !":LOCATE 1,7 
END 

LOCATE 1,17:PRINT STRING$(40,"_") 

PRINT" i 


<< TASTE >>": IWAITKEY:CLS#2: RETURN 


1400 


GOSUB 1380:L0CATE 5,8:PRINT"Das war’s ! 
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F.W.’s COMPUTERKURS: TEIL I 


HUMOR 


Jedesmal wenn ich mit einem totalen Anfänger zu tun habe dem ich die Abgrundbegriffe eines 
Computers beibringen will stürmen tausend Fragen auf mich ein: "Wie funktioniert ein Com- 
puter?", "Wie funktioniert eine Diskettenstation?", "Wie funktioniert ein Programm?" und "Wieso 
kannst.Du nicht.mal die Klappe halten?". 


Letzterem will ich gerne nachgeben (man ist ja Mensch) und schreibe lieber. Nicht nur lieber, 
sondern auch länger, höre jch doch immer die Bitte: "Je länger je lieber !". Mit anderen Worten... - 
Moment, ich such sie schon also mit anderen Worten (ich hab sie !), es entsteht eine Serie in deren 
Verlauf Ihr alles über Computer erfahrt was Euch gar nicht interessiert. 


In jeder Folge des Kurses, so kann man’s auch nennen, werde ich die heißesten Themen in 
bewährt wissenschaftlicher Weise behandeln und Euch in mundgerechten Stücken servieren. Herr- 
lich schöner Satz was! Ihr erfahrt nicht nur was ein Computer ist (auf gar keinen Fall ein Ham- 
burger, das sei jetzt schon verraten), sondern ich kläre auch schonungslos auf woher die kleinen 
Pocketcomputer kommen. Da wird nicht nur der Leser sondern auch so manches Tabu brechen. 


Ich werde eine Erläuterung der beliebtesten Peripheriegeräte wie Diskette, Monitor und Frauen 
geben. Und vor allem werde ich Trends diagnostizieren. Vorrausgesetzt ich weiß bis dahin was 
’Diagnostizieren’ bedeutet. Sollte es eine riesengroße Ferkelei sein, dann entfällt der Artikel wegen 
drohendem Fußpilz bei Minderjährigen. 


Wichtig ist, daß der Leser von Anfang an begeistert mitmacht, warum ist egal. Da sich der Kurs an 
den Anfänger richtet, muß sich der erfahrene User dumm stellen. Dazu bietet der Artikel nunmehr 
mit einer fünfminütigen Pause Gelegenheit - 


- Na also, daß ging ja schneller als Ihr selbst gedacht habt. Dumm genug dürft Ihr nun in unsere 
Serie einsteigen. Noch ein Tip:-Vergewissert Euch erst mal, ob Ihr einen Computer habt und nicht 
etwa den Toaster für einen solchen haltet. In letzterem Fall empfehle ich die 48-teilige Serie 
’Wissenswertes über Brotröster’ der Zeitschrift Stiftung Warentest. 


Wie ein Computer funktioniert, oder warum: puter könnte man weiter aufteilen, es em- 
die Kiste nicht macht was der User will pfiehlt sich jedoch nicht wegen der Unzahl 
von Einzelteilen, die man nachher nie wieder 
Die große Gruppe der Gebrauchsgegenstände | in der richtigen Reihenfolge zusammenbe- 
unterteilt man in Plastikartikel und Sonstiges. | kommt. Darin liegt eben der Unterschied zum 
Plastikartikel unterteilt man wiederum in f Putzeimer, den man bekanntermaßen nicht 
Putzeimer und Krimskrams. In der Krims- mehr auseinandernehmen kann. 
krams-Gruppe ist denn auch der Computer zu 
finden, der ja zu 92,4 bis 93.01 % aus Plastik 
(Kuststoff) besteht. Die restlichen Prozentchen 
sind einerseits nicht aus Plastik, zum Zweiten 
aus was anderem und zum Dritten komme ich 
später darauf zu sprechen. Auch den Com- 


Wenn wir vor einem Computer sitzen (nehmt 
Platz liebe Leser) fällt uns zuerst die Schreib- 
maschine auf die aber gar keine ist. Um die 
gleiche Aufmerksamkeit heischt ein Fernseher 
der aber auch keiner ist. Wir haben also schon 
den ersten Merksatz: 


DE 
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F.W.’COMPUTERKURS 


HUMOR 


Ein Dingsbums das vortäuscht eine Schreib- 
maschine zu sein und ein Bumsdings das vor- 
täuscht ein Fernseher zu sein, ergeben einen 
Computer, der dann aber auch einer ist, soviel 
steht fest ! 


Die Tastatur, jene willkürlich zusammenge- 
stellte, mit Zahlen, Buchstaben und geheim- 
nisvollen Zeichen, bemalten Tasten, eignet 
sich hervorragend zum Eingeben von Daten. 
Der Fernseher wird Monitor genannt. Monitor 
kommt aus dem Altapokalyptischen Sprach- 
schatz und setzt sich zusammen aus ’Moni’ 
(Ein) und ’Tor’ (Tür), wer hätte das gedacht. 
Ein Monitor ist also eine Tür für Daten, aber 
nur in eine (moni) Richtung, also nach 
draußen. Merken wir uns an dieser Stelle: 


Man kann Daten am Monitor nur anschauen, 
jedoch keine Daten hineinschauen. Dafür 
wird die Tastatur benutzt. 


Der Rest dieses Kursteils soll erklären welchen 
Sinn es hat Daten einzugeben (Tastatur), die 
dann wieder ausgegeben werden (Monitor). 
Denn natürlich geschieht etwas mit den Daten, 
das heißt, sie werden in irgendeiner Form, 
meist zu Ungunsten Ihrer Schönheit, verändert 
und mit einem Programm verknubbelt. Ver- 
setzen wir uns (hoppla so breit war der Stuhl 
wohl nicht) in die Praxis, sobald ihr wieder 
aufgestanden seid. Nehmt Eure zehn Finger in 
die Hand und tippt folgendes ohne falsche 
Scham ein: 


10 PRINT "ICH BIN DEIN COMPUTER" 


Was geschieht, was seht Ihr auf dem Monitor? 
Richtig, nichts ! Unerläßlich zum Betrieb 
eines Computers ist nämlich die Elektrizität. 
Zuerst müssen wir also den Stecker in die 
Steckdose stecken - was nur dann kompliziert 
ist wenn wir keine haben. (Also ich hab schon 
eine). In diesem Fall nehmt Ihr den Putzeimer 
aus dem Anfang dieses Artikels und geht zum 
nächsten E-Werk mit Tag- und Nachtbetrieb 
und laßt Euch den Eimer füllen. Nach dem 
Eintauchen des Steckers in den Eimer - Ihr 
müßt natürlich wieder nach Hause laufen - 
könnt Ihr den Computer anschalten. Aber erst 
gibt's noch einen Merksatz: 


Ein Computer funktioniert, wenn überhaupt, - 
nur mit Elektrizität. Dann aber erst recht ! 


Die Notiz bitte gut aufheben (an die Stirn 
kleben), wir werden die Aussage noch oft an- 
gewendet und bestätigt finden. Der Strom 
kriecht (Kriechstrom verwenden !) nun durch 
die Leitung in den Computer. Dort wandern 
(= stromern, daher der Ausdruck Strom) die' 
einzelnen Elektronen ziellos herum und warten 
auf Ihren Job, irgend wie mit den Daten her- 
umzufummeln. 


Wir, die User, sehen derweil mal auf den 
Monitor und was sehen wir da, das Wort 
READY. Das Wort kommt aus dem englisch- 
en, hat also einen weiten Weg hinter sich, und 
bedeutet ’FERTIG’. Wir machen also wie vom 
Betriebssystem gewtinscht den Computer für 
heute wieder aus, denn wir sind mit dem 
ersten Teil des ersten Kursteiles fertig. Löst 
bitte noch die Aufgaben am: Schluß um zu 
überprüfen ob Ihr das Gelesene verarbeiten 
konntet. Die Lösungen gibt es jeweils zu 
Beginn des folgenden Teiles. 


1. Zum Betrieb eines Computers ist un- 
bedingt nötig: 
a. Stromer, Vagabunden und User 
b. mindestens vier Altapokalyptische 
Reiter 
c. F.W.’s Computerkurs 
2; Die Hauptbestandteile eines Com- 
puters sind 
a. Putzeimer und Fernseher 
; Tastatur und Steckdose 
c. Plastik 
3. Auf der Tastatur befindet sich in der 
Regel 
a. Buchstaben und solcher Schnörkel 
b. Staub und Asche 
c. Frag nicht immer so ’nen Blödsinn !!! 
(F.W.) 
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PROGRAMM ZUM ZEICHNEN 
VON FUNKTIONSGRAPHEN 


Das Programm zeichnet mathematische Funk- 
tionsgraphen und ist auf einem CPC 464 ge- 
schrieben. 


Programmbeschreibung: 


Die Funktion wird in Zeile 1460 eingetragen; 
die Form "DEF FN Y=" muß dabei beibehal- 
ten werden. Nach dem ersten Start wird die 
kleine ENTER-Taste auf dem Zahlenblock 
mit "EDIT 1460" definiert, so daß im folgen- 
den die Funktion mit Hilfe dieser Taste ein- 
getragen werden kann. Nachdem also die 
Funktion korrekt eingetragen wurde, wird das 
Programm mit "RUN" gestartet. 


Als erstes wird nach der Position des Ur- 
sprungs des Koordinatensystemes auf dem 
Bildschirm gefragt. Der Default-Wert (Ein- 
gabe: ENTER ohne Ziffer) ist "mitte mitte". 
Daraufhin werden die X- und Y- Achsenein- 
heiten verlangt. Die Default-Werte sind je- 
weils eins. Die Schrittweite besagt, um wieviel 
der X-Wert für jede Berechnung erhöht wird. 
(Default berechnet sich aus den X-Einheiten 
dividiert durch 20 - das entspricht der mini- 
malsten Schrittweite) 


BEHERREIR REN I REDEN DE BEIDEN ILO 5 DEREN 


Dann wird gefragt, ob der Graph mit Punkten 
oder als durchgehende Linie geschrieben wer- 
den soll (Default ist "Linie"), wobei eine Linie 
übersichtlicher, Punkte aber genauer sind. Die 
Rasterung besteht aus einem Netz aus Punkten 
an "Schlüsselpositionen" (Beispiel: X-Einheiten 
= |, Y-Einheiten = 10. Punkte bei (1/10), (1/ 
20), (2/20) usw.) Der Vorteil der Rasterung ist 
das bessere Ablesen des Graphen. Der De- 
fault-Wert ist beim Graph aus einer Linie "Ja" 
und bei einem Graph aus Punkten "Nein". 


Am Schluß wird gefragt, ob im Bogenmaß 
oder im Gradmaß gerechnet werden soll, was 
insbesondere bei trigonometrischen Funktionen 
von Bedeutung ist (Default ist "Gradmaß"). 


.Nach all diesen Eingaben wird zuerst das Ko- 


ordinatensystem gezeichnet, wobei jeweils die 
erste Einheit auf den Achsen mit den entspre- 
chenden Werten versehen wird. Darauf folgt 
das Zeichnen des Graphen, dessen Beendigung 
durch einen Pieps-Ton gekennzeichnet wird. 
Während das Koordinatensystem auf dem 
Bildschirm sichtbar ist, kann das Zeichnen 
durch die Tasten "C" und "E" unterbrochen 
werden. Mit "C" kehrt man ins Hauptmenue 
zurück; mit "E" wird das Programm beendet, 
um z.B. eine neue Funktion mit der kleinen 
ENTER-Taste einzugeben. (Frank Rücker) 


30 REM * Programm zum Zeichnen von Funktionsgraphen * 
40 REM * € 
50 REM * geschrieben von Frank Ruecker ® 
60 REM * ” 
70 REM * Die Funktion ist in Zeile 1460 einzutragen * 
80 REM * (kleine ENTER-Taste) « 
90 REM * ® 
95 REM WERKE TI TI N N TE N N N TE TU TE TE TU N TE U N U U U N a a a a 
1000 ° 

1010 REM **** Initialisierung und Eingabe **** 

1020 ° 

1030 KEY 139, "EDIT 1460"+CHRS$ (13) 

1040 MODE 2: BORDER 13: INK 0,13: INK 1,0: PAPER 0: PEN 1 
1050 CLS: LOCATE 31,1: PRINT "Funktions-Graphen": PRINT 
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1060 PRINT "Ursprungsposition :": PRINT: PRINT TAB(21) ;"1l...links oben" 

1070 PRINT TAB (21) ;"2...links mitte": PRINT TAB (21) ;"3...links unten" 

1080 PRINT TAB (21) ;"4...mitte oben": PRINT TAB(21) ;"5...mitte mitte": PRINT TAB( 
21) ;"6...mitte unten" 

1090 PRINT TAB (21) ;"7...rechts oben": PRINT TAB(21) ;"8...rechts mitte": PRINT TA 
B(21) ;"9...rechts unten" 

1100 LOCATE 21,3: PRINT CHRS$ (143) ;: URPOS$=INKEY$: IF URPOSS="" THEN 1100 

1110 IF URPOS$=CHR$ (13) THEN URPOS$="5" 

1120 IF URPOS$<CHR$ (49) OR URPOSS>CHRS$S (57) THEN PRINT CHRS (7) ;: GOTO 1100 

1130 URPOS=VAL (URPOS$) : LOCATE 21,3 

1140 ON URPOS GOTO 1150,1160,1170,1180,1190,1200,1210,1220,1230 

1150 PRINT "links oben": GOTO 1240 

1160 PRINT "links mitte": GOTO 1240 

1170 PRINT "links unten": GOTO 1240 

1180 PRINT "mitte oben": GOTO 1240 

1190 PRINT "mitte mitte": GOTO 1240 

1200 PRINT "mitte unten": GOTO 1240 

1210 PRINT "rechts oben": GOTO 1240 

1220 PRINT "rechts mitte": GOTO 1240 

1230 PRINT "rechts unten" 

1240 LOCATE 1,5: PRINT CHR$ (20); 

1250 LOCATE 1,5: INPUT "X-Einheiten : ",XEIN$S: IF XEINS5="" THEN XEINS="1" 

1260 IF VAL(XEIN$)<>O THEN XEIN=VAL (XEIN$) ELSE PRINT CHRS (7) ;: GOTO 1250 

1270 LOCATE 15,5: PRINT XEIN 

1280 LOCATE 1,7: INPUT "Y-Einheiten : ",YEIN$S 

1290 IF YEINS="" THEN YEIN=XEIN: GOTO 1310 

1300 IF VAL(YEIN$)<>0 THEN YEIN=VAL YEIN$) ELSE PRINT CHRS$S (7) ;: GOTO 1280 

1310 LOCATE 15,7: PRINT YEIN 

1320 LOCATE 1,9: INPUT "Schrittweite : ", INC$S: IF INC$="" THEN INC$S=STR$ (XEIN/2 


a 
e) 


> 
w 
S 
[e} 


Schne 


1330 IF VAL(INCS)<>O THEN INC=VAL(INC$S) ELSE PRINT CHR$ (7) ;: GOTO 1320 
1340 LOCATE 16,9: PRINT INC x 
1350 LOCATE 1,11: INPUT "<L>inie oder <P>unkte : ",ARTS: IF ART$S="" THEN ARTS="L 


1360 IF ARTS<>"L" AND ARTS<>"P" THEN PRINT CHR$S (7) ;: GOTO 1350 

LOCATE 25,11: PRINT ARTS 

1380 LOCATE 1,13: INPUT "Rasterung (J/N) : ",RAST$S: IF RASTS<>"" THEN 1400 
1390 IF ART$="L" THEN RAST$="J" ELSE RAST$S="N" 


1400 IF RASTS<>"J" AND RASTS<>"N" THEN PRINT CHRS (7) ;: GOTO 1380 


1410 LOCATE 19,13: PRINT RASTS$S D 
1420 LOCATE 1,15: INPUT "<G>radmass oder <B>ogenmass : ",MASS$: IF MASSS="" THEN 
MASS$="G" 


1430 IF MASSS<>"G" AND MASSS<>"B" THEN PRINT CHR$S (7) ;: GOTO 1420 
1440 LOCATE 31,15: PRINT MASS$ 

1450 IF MASS$="G" THEN DEG ELSE RAD 

1460 DEF FN Y=SIN(1/%) 

2000 ° 

2010 REM **** Hauptprogramm **** 

2020 ° 

2030 CLS: IF RAST$S="J" THEN GOSUB 6020 

2040 PRINT CHR$ (22) ;"1"; 

2050 GOSUB 5020 

2060 EVERY 1 GOSUB 4020 

2070 .QN. ERROR GOTO 3020 

2080 FLAG=0 

2090 FOR X=XBEG TO XEND STEP INC: X=FIX (X/INC+(0.5*SGN (X))) *INC: Y=FN Y 
2100 XKO= (X/XEIN*10) *2: YKO=(Y/YEIN*10) *2 

2110 IF YKO>400 OR YKO<-400 THEN FLAG=0: GOTO 2140 

2120 IF YKO>-400 AND YKO<400 AND FLAG=0 THEN MOVE XKO,YKO: FLAG=1 
2130 IF ART$="L" THEN DRAW XKO,YKO ELSE PLOT XKO,YKO 

2140 NEXT X 

2150 PRINT CHRS$ (22) ;"O";CHRS (7); 

2160 QQ$S=INKEY$: IF QQ$="" THEN 2160 ELSE RUN 

3000 ° 

3010 REM **** Error-Handling **** 


3030 IF ERR=6 THEN IF YKO>30000 THEN YKO=500 ELSE YKO=-500 
3040 IF ERR=& "HEN ReätiMe 

3050 IF ERR=5 THEN RESUME 2140 

3060 IF BERRS>1L THEN Arap 

3070 X=X+1INCı Y=FN Yı XKO= (X/XEIN*10) *2: YKO=(Y/YEIN*10) *2 


3080 IF YKO>30000 THEN YKO= : 
ee 400: GOTO 3080 ELSE IF YKO<-30000 THEN YKO=-400: GOTO 


3090 PLOT XKO,YKO 
3100 RESUME 2140 


OÖ: ©: 0: 9: © 09-70! 9. 0: ©. 0:0 0:0 ©8929 9.979 °9:.79 
O: 20: 20-0: 30: 202.10: 30:70:20: 2070,.70379:, 0.29: 0, 8. 70: .9..0,.9-:91.0 
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REM **** Eingabe waehrend des Zeichnens **** 


IF INKEY(62)>=0 THEN X=XEND 
4040 IF INKEY(58)>=0 THEN END 
4050 RETURN 


5010 REM **** KOSY zeichnen **** 


5030 ON URPOS GOSUB 5090,5110,5130,5150,5170,5190,5210,5230,5250 
5040 ORIGIN 0,0: MOVE XUR,.0: DRAW XUR,400: MOVE 0,YUR: DRAW 640, YUR 
5050 FOR I=20 TO 380 STEP 20: MOVE XUR,I: DRAW XUR-2,I: NEXT I 
5060 FOR I=20 TO 620 STEP 20: MOVE I,YUR: DRAW I,YUR-2: NEXT I 
5070 ORIGIN XUR, YUR 

5080 RETURN 

5090 XUR=20: YUR=380: XBEG=0: XEND=30*XEIN 

5100 LOCATE 1,3: PRINT -YEIN;: LOCATE 4,1: PRINT XEIN;: RETURN 
5110 XUR=20: YUR=200: XBEG=0: XEND=30*XEIN 

5120 LOCATE 1,12: PRINT YEIN;: LOCATE 4,14: PRINT XEIN;: RETURN 
5130 XUR=20: YUR=20: XBEG=0: XEND=30*XEIN 

5140 LOCATE 1,23: PRINT YEIN;: LOCATE 4,25: PRINT XEIN;: RETURN 
5150 XUR=320: YUR=380: XBEG=-15*XEIN: XEND=15*XEIN 

5160 LOCATE 38,3: PRINT -YEIN;: LOCATE 42,1: PRINT XEIN;: RETURN 
5170 XUR=320: YUR=200: XBEG=-15*XEIN: XEND=15*XEIN 

5180 LOCATE 38,12: PRINT YEIN;: LOCATE 42,14: PRINT XEIN;: RETURN 
5190 XUR=320: YUR=20: XBEG=-15*XEIN: XEND=15*XEIN 

5200 LOCATE 38,23: PRINT YEIN;: LOCATE 42,25: PRINT XEIN;: RETURN 
5210 XUR=620: YUR=380: XBEG=-30*XEIN: XEND=0 . 

5220 LOCATE 76,%3: PRINT -YEIN;: LOCATE 74,1: PRINT -XEIN;: RETURN 
5230 XUR=620: YUR=200: XBEG=-30*XEIN: XEND=0 

5240 LOCATE 76,12: PRINT YEIN;: LOCATE 74,14: PRINT -XEIN;: RETURN 
5250 XUR=620: YUR=20: XBEG=-30*XEIN: XEND=0 

5260 LOCATE 76,23: PRINT YEIN;: LOCATE 74,25: PRINT -XEIN;: RETURN 


6010 REM **** Rasterung **** 


6030 FOR I=20 TO 640 STEP 20: FOR J=20 TO 400 STEP 20: PLOT I,J: NEXT JılI 
RETURN 
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J-AKTION 


Das Jahr 1986 wird in Computerkreisen als das Jahr der 
Datenfernübertragung bezeichnet, 

d.h. man erwartet den langersehnten Durchbruch. SCHNEIDER-aktiv 
wird mit Unterstützung der Hersteller von Akustikkopplern 
mithelfen, damit dieser Durchbruch auch gelingt. 

Ein Großteil der Autoren von SCHNEIDER-aktiv werden von einem 
Akustikkopplerhersteller 
mit Akustikkopplern ausgestattet. Wenn die 
Fa. Schneider auch noch eine entsprechende Anzahl von RS 232 

Schnittstellen & 
zur Verfügung stellen würde kann Ende April die DFÜ im größerem 
Rahmen beginnen. 
Sobald unsere ersten Erfahrungen vorliegen werden wir die Leser von 
SCHNEIDER-aktiv 
in das DFÜ-Netz mit einbeziehen. 
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AKUSTIK-KOPPLER-AKTION 


HÄNDLERINFO Rundbuchse 
- Übertragungsgeschwindigkeit 300, 600, 
Zu den mit Erfolg verkauften WOERL- 1200 Baud im Hauptkanal, 75 Baud im 
TRONIC - dataphon s 21 d, kommt ab Mitte Hilfskanal 
April 1986 der neue Akustikkoppler WOERL- - Halbduplexbetrieb 1200/1200 Baud 
TRONIC - dataphon s 21/23 Kombi auf den - Mit RTS-Leitung automatische Sende- 
Markt. Hiermit will die Firma WÖRLEIN /Empfangsschaltung 
GMBH & CO. KG. den Wunsch vieler profes- - Eingebauter Geschwindigkeitswandler, der 
sioneller Anwender erfüllen, die seit längerer bei Bedarf automatisch die Umschaltung 
Zeit ein qualitatives, technisch hochstehendes A von 1200 auf 75 Baud für den Rückka- 
und trotzdem preiswertes Gerät fordern. nal vornimmt 
- Stromversorgung wahlweise durch Batterie, 
Das neue Modell soll folgende Leistungs- Akku, Netzgerät oder Schnittstelle 
merkmale aufweisen: - Vollduplexbetrieb 
- Answer- und Originatemodus, automatische 
- Design wie WOERLTRONIC - dataphon s Kanalwahl 
21 d - Preis ca. 359,- DM 
- Anschluß an alle Computer mit V.24 - 
Schnittstelle Das WOERLTRONIC - dataphon s 21/23 wird 
- Schaltung in C-MOS - Technologie erstmals auf derm CeBIT in Hannover, Halle 
- Induktiv oder akustisch gekoppelt 18 EG., Stand 103, vorgestellt. 


- BTX-fähig, mit DBT 03 kompatiben ELLELTTERERTENTTTTERTTTERTTTTERTTTTETTTTREN NETT 
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Probleme 


"Ich bin froh über eure Zeitschrift! Ich hätte 
ein Problem: Ich habe vom FLOPPY-BUCH 
von DATA BECKER die relative Dateiverwal- 
tung mit dem CPC 464 und der DDI-I ver- 
wirklichen wollen. Trotz x-facher Kontrolle 
des abgetippten Listings der Erweiterungs- 
befehle funktioniert der Befehl IRECORD 
nicht. Vielleicht ist Euch der Fehler bekannt 
oder es gibt einen anderen Vorschlag für eine 
Relative Dateiverwaltung. Ein weiteres für mich 
unlösbares Problem hatte ich, als ich mit dem 
CP/M-Programm CSAVE ein auf Diskette ge- 
kauftes Textprogramm für mich auf Kassette 
sichern wollte (CPC-TEXT). Die Übertragung 
funktionierte zwar, aber beim Einladen von der 
Kassette lief das Programm nicht, es erschien 
nur die Fehlermeldung "LINE TOO LONG". 
Wer kann mir helfen?" 

Reinhard Pirnbacher 


Wanghausen 196 
A-5122 Ach/Salzach 


"Ich wende mich mit einer Bitte an Euch. Neu- 
lich kaufte ich mit einen Seikosha Drucker Typ 
GP-500A zwecks Anschluß an meinem CPC 
464. Es ist nun so, daß der Drucker auf einige 
im Handbuch gedruckte Programmbeispiele 
vollkommen anders reagiert als beschrieben. 
Auch ist das Handbuch für einen Anfänger wie 
mich unverständlich. Wo bekomme ich leicht 
verständlicche Literatur, um dieses Problem in 
den Griff zu bekommen, oder an wen kann ich 
mich wenden?" 

Heinz Peter Rohrbach 

Hohe Geest 106 

4400 Münster-Hiltrup 


Anmerkung der Redaktion: 

Bitte an den Hersteller schreiben. Gerade 
dieser Hersteller ist bemüht mit Rat und Tat 
zu helfen. 


Ich besitze den CPC 6128 mit dem Matrix 
Printer NLQ 401 und, seit ein paar Tagen, als 
Textverarbeitungsprogramm WORDSTAR in 
der dem CPC 6128 angepaßten Version 3.0. 
Der Drucker (NLQ 401) arbeitet unter BASIC 
völlig einwandfrei. Bei der Textarbeit unter 
CP/M Plus mit WORDSTAR führt der Druk- 
ker jedoch einen Print-Befehl nur unmittelbar 
nach dem Kaltstart des System aus. Will man 
aber danach - entweder sofort oder nach An- 
lage und Abspeicherung eines neuen Textes - 
eine weitere Datei ausdrucken lassen, so er- 
lischt die Anzeige dieses WORDSTAR-Menü- 
punktes (P) nach einiger Zeit des Wartens 
wieder und der Printbefehl bleibt, trotz offen- 
barer Bereitschaft des Programms, unausge- 
führt. Das einzige, was in dieser Situation 
hilft, ist das völlige Zurücksetzen von CP/M 
durch Rückkehr zu BASIC und erneutes La- 
den von CP/M WORDSTAR, also ein erneuter 
Kaltstart mit mühseliger Neueingabe. Warm- 
start unter CP/M Plus (durch CONTROL C) 
schafft keine Abhilfe. Der beschriebene Kalt- 
start-Ausweg erlaubt dann wieder einen ein- 
zigen Ausdruck..., anschließend geht die ganze 
Prozedur von vorne los: ein sehr unbefrie- 
digender Zustand. In den Handbüchern und 
dem WORDSTAR-Buch von Jürgensmeier 
(M&T 779) finde ich keinerlei Hinweis auf 
eine solche Schwierigkeit, die mir die Freude 
an der Arbeit mit einem im übrigen vortreff- 
lich funktionierenden System ziemlich vergällt. 
Was könnte der Grund für den beschriebenen 
Mangel sein und wie kann man ihn beheben? 
(Matthias Fuhsbahn, 5760 Arnsberg 2, 
Ringlebstraße 25) 
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DISKETTENLAUFWERKE 


CUMANA 3” Diskettenlaufwerk für Schneider CPC 
464, 664 und 6128 zur Verwendung als zweites 
Laufwerk. 40 Spuren, einseitig, 250 KB (unformatiert), 
Zugriffszeit 55 ms, incl. Anschlußkabel und Netzteil 
(Bitte Computer-Type angeben) DM 399,- 


CUMANA 5,25" Diskettenlaufwerk für Schneider 
CPC 464, 664 und 6128 zur Verwendung als zweites 
Laufwerk. 40 Spuren, einseitig, 250 KB (unformatiert), 
Zugriffszeit 80.2 ms, incl. Anschlußkabel und Netzteil 
(Bitte Computer-Type angeben) DM 599,- 


CUMANA 


The best name in memory 


CUMANA 5,25" Diskettenlaufwerk für Schneider 
CPC 464, 664 und 6128 zur Verwendung als zweites 
Laufwerk. 40/80 Spuren, zweiseitig IMB (unformatiert) 
incl. Umrüstung, Anschlußkabel und Netzteil 


Für CPC 464 (Controler einschicken) DM 650,- 
Für 664/6128 (Console einschicken) DM 790,- 
Vortex F1/S DM 1190,- 
1 Laufwerk mit Controler, CP/M 2.2, VDOS und Handbuch 
Vortex Fi DM 1690,- 
2 Laufwerke mit Controler, CP/M 2.2, VDO8 u. Handbuch 
Vortex F1/Z DM 690,- 
Zweitlaufwerk mit Programm SPARA 

Vortex Al- DM 492,- 
Aufrüstsats F1/3 auf F1/D 

Vortex Al-Z DM 540,- 
Aufrüstsats F1/Z auf F1/S) 
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Versand per Nachnahme oder Vorauskasse (Scheck) 
zzgl. Versandkosten 
bei Hardware DM 8,- bei Söftware DM 5,- 
TELEFONISCHE BESTELLUNGEN MÖGLICH 


Händleranfragen erwünscht 


GIGGE 
ELECTRONICS 


Abt. C5C - Schneefernerring 4 - 8500 Nürnberg 50 - 
HOTLINE bis 20 Uhr - Tel. 0911/84244 


VORTEX SPEICHERERWEITERUNGEN: 


(rechtzeitig bestellen - es kann su Lieferengpässen kommen) 
“ 


SP64 DM 267,- 
RAM-Erweiterung auf 64KB, ausbaubar auf 512KB 

SP128 DM 340,- 
RAM-Erweiterung auf 128KB, ausbaubar auf 512KB 

SP256 DM 470,- 
RAM-Erweiterung auf 356KB, ausbaubar auf 512KB 

SP320 DM 520,- 
RAM-Erweiterung auf 320KB, ausbaubar auf 512KB 

SP512 DM 581,- 


RAM-Erweiterung auf 512KB, nicht ausbaubar 


L0.0.0.0.0.0.0.0.0.0.0.0.0.0.: 


0.0.0.0.0.0.0.0.0.0.0 0.0.0. 


TRANSMAT 464/664/6128 


Kassette DM 49,- 


TRANSMAT überträgt Ihre eigene Software von Kas- 
sette auf Diskette. Programme, deren Größe die 
Benutzung eines Diskettenlaufwerks nicht zulassen, 
werden von TRANSMAT automatisch umgeschrieben. 


C.A.D. 464 


Kassette DM 49,- 
Diskette DM 69,- 


Superprogramm zum Erstellen von Grafikbildern (z.B. 
für Adventures und Spiele) auf dem CPC mit den 
Grafikbefehlen: 


BLOCK BOX 
CIRCLE TYPE 
CHANGE COLOR CHANGE MODE 
CHARACTER COLOR 
CLEAR DISC 

GoOTO HELP 
INVERSE LINE 

LOAD MODE 
RASTER PAINT/FILL 
SAVE SPRAY 
ZOOM 


C.A.D. zeichnet Kreise, Blöcke, Linien, Rahmen, Rau- 
ten, Dreiecke und Vielecke. Buchstaben können einge- 
fügt, Bilder invertiert und Objekte blitzschnell farbig 
ausgefüllt werden. Bildpositionen sind speicherbar - an 
diese kann jederzeit zurückgesprungen werden. C.A.D. 
kann Grafikbilder auf und von Kassette oder Diskette 
speichern und laden. Das Hilfsmenü dient der schnellen 
Handhabung. Lieferung mit deutscher Anleitung und 
Demobild. 


3-D VOICE CHESS 464/664/6128 


Kassette DM 59,- 


3-D VOICE CHESS ist ein spechendes Schachpro- 
gramm, daß das Spielfeld und die Figuren 3- 
dimensional darstellt (siehe Bild 1). Das dreidimensio- 
nale Schachbrett kann gedreht werden. Somit ist eine 
Seitenansicht des Spiels möglich. 3-D VOICE CHESS 
verfügt über 7 Schwierigkeitsstufen und kann gegen 
sich selbst spielen. 


Einzelne Figuren können vom Brett entfernt oder 
hinzugestellt werden. Außerdem kann das Programm 
auch Ratschläge für den nächsten Zug ‚geben. 3-D 
VOICE CHESS kopiert sich- wenn gewünscht - von 
selbst auf Diskette. 


Versand per Nachnahme oder Vorauskasse (Scheck) 
zzgl. Versandkosten 
bei Hardware DM 8,- bei Software DM 5,- 
TELEFONISCHE BESTELLUNGEN MÖGLICH 


Händleranfragen erwünscht 


GIGGE 
LECTRBONICS 


Abt. C5C - Schneefernerring 4 - 8500 Nürnberg 50 - 
HOTLINE bis 20 Uhr - Tel. 0911/84244 
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POWER-BASIC 464 


Kassette DM 49,- 
Diskette DM 69,- 


die Basicerweiterung für den CPC mit 47 neuen Basic- 
Befehlen: 


BOX BLOCK TURBO SET 
RSET HCoPY INV MFILL 
MCoPY MCHANGE FILL CIRCLE 
PAINT ACCESS SMODE SIZE ' 
RON ROFF RINK RBORDER 
RMODE CHAR HELP MATRIX 
GPEN LINE FRAME DOKE 
LINE GET CAT DISPRO 
BASE SCREEN MAP NOESC 


und weitere 


POWER-BASIC ermöglicht die Programmierung von 
SPRITES (=bewegliche Felder, zur Darstellung von 
Figuren bei Spielen) in beliebiger Größe. POWER- 
BASIC hat neue Graphik-Befehle und druckt 
Bildschirmjnhalte aus. Beliebig große Schriften sind 
darstellbar und Figuren lassen sich ausmalen. Mit dem 
Befehl TURBO laden Sie Ihre Programme bis zu 4x 
schneller. 


Darstellung von 27 Farben 
GLEICHZEITIG ! 


ui Bi 
in __ 


POWER-BASIC ermöglicht das gleichzeitige Darstellen 
aller 27 Farben und aller 3 Modes. Deutsche 
Anleitung. 


TAPE MECHANIC 464 
Kassette DM 49,- 


TAPE MECHANIC ist ein Kopierprogramm zum Ana- 
Iysieren und Kopieren Ihrer eigenen Programme von 
Kassette zu Kassette. TAPE MECHANIC ermöglicht 
das stufenlose Einstellen der Baudrate und kann 
"LIST"-geschützte Porgramme listen. 


DISC MECHANIC 464/664/6128 


Diskette DM 69,- 


Disc Mechanic ist das Disketten-Utility Programm, das 
jeder Schneider Besitzer haben sollte. Disc Mechanic 
ermöglicht das Formatieren und Kopieren von Disket- 
ten bis zu 42 Tracks. Dabei werden neue Disketten- 
formate, die als Kopierschutz dienen, mitkopiert. Mit 
dem eingebauten Diskettenmonitor können Sie ihre 
Disketten "unter die Lupe nehmen" und Änderungen 
vornehmen. Löschen, Umbenennen sowie das Zurück- 
holen von bereits gelöschten Files ist extrem komfor- 
tabel. Belegte und nicht belegte Sectoren werden gra- 
phisch angezeigt. In den wichtigsten Funktionen ist ein 
Ausdruck des Bildschirms auf einen Drucker möglich. 
Disc Mechanic arbeitet auch mit zwei Laufwerken. 
Deutsche Anleitung. 


AANANNNNHNN 


YANHNHNNN 


& . 


k F1-X DM 698,-* 


*unverbindliche Preisempfehlung. 
Einführungspreis gültig bis Ende April 86 


Die vortex Floppy Disk Station FI-X ist keine 

Alternative - sie ist die Lösung! 

e 5.25” Diskettenformat 

e 708 KByte formatierte Kapazität 

e sofort anschließbar an jeden 
CPC 464 + DDI-1, GPC 664 und CPC 6128 

e VDOS 2.0 

e professionelle relative Dateiverwaltung 
unter BASIC 

e Z80 Maschinensprache Monitor 

e wahlweise kann zwischen VDOS und 
AMSDOS softwaremäßig umgeschaltet 
werden 

e vorbereitet für RS 23 C-Schnittstelle 


Damit sind Sie besser. 


